Jeg har en gæstebog hvor jeg gerne vil ha en alert boks, når
brugeren ikke taster det hele ind- istedet for at det jeg har nu,
som ser sådan ud:
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
%>
Jeg har så prøvet med dette, men jeg får bare en hel hvid side op
hvor der ikke står noget i stedet for en alert boks.!?
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
%>
<SCRIPT Language="JavaScript>
window.alert("Fejlmeddelelse");
</SCRIPT>
<%
End If
End If
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials