|
Definitions |
|||||||||||||
|
<%'=====================================================
'Are you registered?
'=====================================================
Dim iClickConnect, iClickRecords, iClickQuery, iClick, firstname, myDSN
iClick = Request.Cookies("Visit")("Entry")
myDSN="DSN=jswensonsql;uid=jswenson;pwd=feitwo"
if iClick = 0 then%>
<%else
Set iClickConnect = Server.CreateObject("ADODB.Connection")
iClickConnect.Open myDSN
Set iClickRecords = Server.CreateObject("ADODB.Recordset")
iClickQuery = "SELECT * FROM Register WHERE Entry_Id =" & iClick & ""
iClickRecords.Open iClickQuery, iClickConnect
firstname = iClickRecords("fname")%>
|
|
|||||||||||||