Hejsa.
Jeg har en lille kommunikationsboks på min hjemmeside, hvor folk kan skrive
så kommentarer til det de ser på siden. Som en joke vil jeg gerne have, at
hvis brugeren har et bestemt navn, så kan pågældende bruger ikke få lov til
at skrive i kommentarboksen. Min kode:
<%
'Der er et eller andet der kikser her.
if Request.Form("navn") = "Jens"
then Response.Write "Smut!"
Else
'Herfra virker koden, den har jeg checket uden ovenstående
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/vupti.mdb")
Conn.Open DSN
strNavn = Request.Form("navn")
strNavn = Replace(strNavn, "'", "''")
strKommentar = Request.Form("kommentar")
strKommentar = Replace(strKommentar, "'", "''")
strSQL = "Insert into vupti ("
strSQL = strSQL & "person, "
strSQL = strSQL & "vupti) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & strNavn & "', "
strSQL = strSQL & "'" & strKommentar & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
End if
%>
Problemet er, at jeg får fejl 500 med ovenstående kode. Er der nogen der kan
finde fejlen og rette den. Hvordan skal koden lyde, hvis jeg vil have at
brugernavnet "Jens" får siden til at returenere beskeden "Smut"?
Jeg er godt klar over brugeren bare kan vælge at andet brugernavn og skrive
videre, det skal bare bruges som en joke.
Mvh. Thomas.