hoi,
ik ben een soort check systeem aan het bouwen. Wat is de bedoeling:
- check of het ip-adres uniek is
- check of het emailadres uniek is
- check of het volgnummer < 1000
met deze code:
hij blijft nu dus gewoon weergeven als link: "../discontinued/testfree.html"
Ik heb in mijn database (MS SQL) deze 3 velden als volgt staan:
ipadres: varchar
emailades: varchar
volgnummer: numeric
Ik zie niet meer wat ik fout doe... Ik hoop jullie wel.
ik ben een soort check systeem aan het bouwen. Wat is de bedoeling:
- check of het ip-adres uniek is
- check of het emailadres uniek is
- check of het volgnummer < 1000
met deze code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Dim ipadrescons, emailadrescons, ipadresdb, emailadresdb, link
ipadrescons = Request.Servervariables("REMOTE_ADDR")
emailadrescons = request.form("emailadres")
' debug om te checken of het wel goed gaat!
response.write " ip cons is: "&ipadrescons&"<br>"
response.write "emailcons is: "&emailadrescons&"<br>"
set rs_checkin = Server.CreateObject("ADODB.Recordset")
rs_checkin.ActiveConnection = dbconn
rs_checkin.Source = "SELECT volgnummer, ipadres, emailadres FROM dbo.kaartbestellingen where (volgnummer < 1000) AND (ipadres = '"&ipadrescons&"' AND emailadres = '"&emailadrescons&"')"
rs_checkin.CursorType = 0
rs_checkin.CursorLocation = 2
rs_checkin.LockType = 3
rs_checkin.Open()
rs_checkin_numRows = 0
if rs_checkin.eof or rs_checkin.bof then
link = "../discontinued/testfree.html"
else
link = "../discontinued/testpay.html"
end if
' debug om te checken welke link er nu gegeven wordt!
response.write link |
hij blijft nu dus gewoon weergeven als link: "../discontinued/testfree.html"
Ik heb in mijn database (MS SQL) deze 3 velden als volgt staan:
ipadres: varchar
emailades: varchar
volgnummer: numeric
Ik zie niet meer wat ik fout doe... Ik hoop jullie wel.
Heart..pumps blood.Has nothing to do with emotion! Bored