PDG: Add Contact

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsContactDetails__MMColParam rsContactDetails__MMColParam = "1" If (Request.QueryString("ContactsID") <> "") Then rsContactDetails__MMColParam = Request.QueryString("ContactsID") End If %> <% Dim rsContactDetails Dim rsContactDetails_numRows Set rsContactDetails = Server.CreateObject("ADODB.Recordset") rsContactDetails.ActiveConnection = MM_connpdg_STRING rsContactDetails.Source = "SELECT * FROM Contacts WHERE ContactsID = " + Replace(rsContactDetails__MMColParam, "'", "''") + "" rsContactDetails.CursorType = 0 rsContactDetails.CursorLocation = 2 rsContactDetails.LockType = 3 rsContactDetails.Open() rsContactDetails_numRows = 0 %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("ContactsID") <> "") Then Recordset1__MMColParam = Request.QueryString("ContactsID") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connpdg_STRING Recordset1.Source = "SELECT * FROM Contacts WHERE ContactsID = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> PDG: Add Contact

PALMETTODESIGNGROUP

DETAIL OF CONTACT

Last Name	<%=(rsContactDetails.Fields.Item("LastName").Value)%>
First Name	<%=(rsContactDetails.Fields.Item("FirstName").Value)%>
Address 1	<%=(rsContactDetails.Fields.Item("Address1").Value)%>
Address 2	<%=(rsContactDetails.Fields.Item("Address2").Value)%>
City	<%=(rsContactDetails.Fields.Item("City").Value)%>
State	<%=(rsContactDetails.Fields.Item("State").Value)%>
Zip Code	<%=(rsContactDetails.Fields.Item("ZipCode").Value)%>
Region	<%=(rsContactDetails.Fields.Item("Region").Value)%>
Email	<%=(rsContactDetails.Fields.Item("Email").Value)%>
Home Phone	<%=(rsContactDetails.Fields.Item("hp1").Value)%><%=(rsContactDetails.Fields.Item("hp2").Value)%><%=(rsContactDetails.Fields.Item("hp3").Value)%>
Work Phone	<%=(rsContactDetails.Fields.Item("wp1").Value)%><%=(rsContactDetails.Fields.Item("wp2").Value)%><%=(rsContactDetails.Fields.Item("wp3").Value)%>
Fax	<%=(rsContactDetails.Fields.Item("fax1").Value)%><%=(rsContactDetails.Fields.Item("fax2").Value)%><%=(rsContactDetails.Fields.Item("fax3").Value)%>

<% rsContactDetails.Close() Set rsContactDetails = Nothing %> <% Recordset1.Close() Set Recordset1 = Nothing %>