%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim head__MMColParam head__MMColParam = "1" If (Session("company") <> "") Then head__MMColParam = Session("company") End If %> <% Dim head Dim head_numRows Set head = Server.CreateObject("ADODB.Recordset") head.ActiveConnection = MM_ttdb_STRING head.Source = "SELECT * FROM head WHERE ID = " + Replace(head__MMColParam, "'", "''") + "" head.CursorType = 0 head.CursorLocation = 2 head.LockType = 1 head.Open() head_numRows = 0 %> <% Dim company__MMColParam company__MMColParam = "1" If (Session("company") <> "") Then company__MMColParam = Session("company") End If %> <% Dim company Dim company_numRows Set company = Server.CreateObject("ADODB.Recordset") company.ActiveConnection = MM_ttdb_STRING company.Source = "SELECT * FROM company WHERE ID = " + Replace(company__MMColParam, "'", "''") + "" company.CursorType = 0 company.CursorLocation = 2 company.LockType = 1 company.Open() company_numRows = 0 %>
![]() ![]() |
|||
|
AB
Automotive - Sales Network AB Automotive Inc Sales Contacts 2500 Business Highway 70 East
|
|
| Legal
Notice Contact
Us Information about browser requirements |