<%@ LANGUAGE = VBScript %>
<%
' IF VISITOR COMES DIRECTLY TO THIS PAGE, ROUTE THEM BACK THROUGH COOKIE.ASP
If Session("contactid") = "" then
if request.Querystring("contactid") = "" then
response.redirect "http://www.edisys.com/cookie.asp?NextPage=/download/download.asp"
else
contactid=request.Querystring("contactid")
table=request.Querystring("table")
end if
Else
contactid = Session("contactid")
table=Session("table")
End If
%>
<%
' IF VISITOR COMES DIRECTLY TO THIS PAGE, ROUTE THEM BACK THROUGH COOKIE.ASP
' If Session("contactid") = "" then
' response.redirect "http://test.edisys.com/html/cookie.asp?NextPage=/download/download.asp"
'Else
' contactid = Session("contactid")
'End If
%>
<% ' INCLUDE NEEDED MODULES FOR PERFORMING TASKS %>
<%
' CREATE THE DATABASE OBJECT AND MAKE THE CONNECTION
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.ConnectionString = Session("DSN")
OBJdbConnection.Open
' IF THIS IS AN EXISTING CONTACT, PREFILL THE FORM WITH THEIR DATA
If contactid <> "" and table <> "anon" then
' IF THE COOKIE WAS FOUND, THEN GET THE CONTACT ID FROM THE
' TABLE.
' SELECT A CONTACT RECORD (SELECTRECORDS.INC)
' MUST PASS A VALUE TO wherecontact
wherecontact = "CONTACTID = convert(int, '" & contactid & "')"
SelectContactArray = SelectContact()
' COPY VALUES INTO FORM FIELDS
firstname = SelectContactArray(1)
lastname = SelectContactArray(2)
email1 = SelectContactArray(4)
emailformat = SelectContactArray(24)
companyid = SelectContactArray(26)
campaignid = SelectContactArray(27)
' GET COMPANY NAME
If companyid > 0 then
wherecompany = "COMPANYID = convert(int, '" & companyid & "')"
SelectCompanyArray = SelectCompany(wherecompany)
companyname = SelectCompanyArray(1)
End If
End If
%>