Validering/sammenligning med indhold i DB
Har prøvet at finde svaret i allerede stillede spørgsmål, men uden held. Så her kommer det:Brugerne kan skrive et interval af numre ind gennem en formular til en Accessdatabase. F.eks. kan feltet arkivnr1 have værdien 1 og arkivnr2 have værdien 100.
Når folk indskriver vil jeg gerne have at den tjekker i databasen om intervallet er indskrevet. Tallene mellem 1 og 100 må altså ikke indskrives igen (heller ikke 2 til 99 osv)
Her er min kode med validering. Den virker bare ikke, suk.
Den tillader hvad som helst, bare det ikke er den første eller sidste record der rammes.
Håber I gider hjælpe, for jeg sidder fast :o(
<%
if Request.Querystring("Knap") = "Send" then
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../fpdb/arkivnr.mdb")
Conn.Open DSN
strSQL = "Select * From tbl_arkivnr WHERE arkivnr2 >" & Request.querystring("arkivnr1") & "AND arkivnr2 >" & Request.querystring("arkivnr2")
Response.write strSQL
Set rs = Conn.Execute(strSQL)
If NOT (rs.BOF OR rs.EOF) Then
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../fpdb/arkivnr.mdb")
Conn.Open DSN
strSQL = "Insert into tbl_arkivnr (arkivnr1,arkivnr2,brugerid) values ('" & Request.querystring("arkivnr1") & "','" & Request.querystring("arkivnr2") & "','" & Request.querystring("brugerid") & "')"
Conn.Execute(strSQL)
Else
Response.Write "Arkivnr er brugt"
'Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
End IF
End IF
%>