Undgå at sende med feltet Navn
Hejsa,I min gæstebog er felterne Navn, E-mail og Overskrift forudfyldt med dette, når man så klikker forsvinder teksten og kommer tilbage når man klikker uden for feltet. Jeg vil gerne ha at mine gæster ikke kan sende med disse indtastninger. Min E-mail er ikke et problem, det bliver kontroleret af en funktion, men men jeg kan ikke finde ud af at udelukke ordsætningen "Navn" osv.
Jeg har selv prøvet med:
If Len(strNavn) = "Navn" Then
strError = "<li>Du skal skrive dit navn!</li>"
Men der virker ikke. Jeg er ikke nogen ørn til asp, for ikke at sige- jeg fatter hat af det.!
I kan se hele koden her:
If Request.Form("Gem") <> "" Then
strError = ""
strNavn = Trim(Request.Form("Navn"))
strEmail = Trim(Request.Form("Email"))
strOverskrift = Trim(Request.Form("Overskrift"))
strKommentar = Trim(Request.Form("Kommentar"))
If Len(strNavn) = 0 Then
strError = "<li>Du skal skrive dit navn!</li>"
ElseIf validateEmail(strEmail) = False Then
strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>"
ElseIf Len(strKommentar) = 0 Then
strError = "<li>Du skal skrive en kommentar!</li>"
End If
If Len(strError) = 0 Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Navn") = Server.HTMLEncode(strNavn)
rs("Email") = Server.HTMLEncode(strEmail)
rs("Overskrift") = Server.HTMLEncode(strOverskrift)
rs("Kommentar") = Server.HTMLEncode(strKommentar)
rs("Dato") = Now()
rs("IP") = IP
rs.Update
End If
rs.Close
Set rs = Nothing
Response.Redirect("gb.asp")
Else
strError = "<font color=#FF0000>" & strError & "</font>"
strMode = "add"
End If
End If
%>
