Giv fejl hvis form er tom.
Har en tilmeldning side, hvor jeg godt kunne tænke mig den kommer med en fejl hvis ikke alle 3 felter er udfyldt.Kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN
if request.form("fornavn") <> "" or
if request.form("efternavn") <> "" or
if request.form("rating") <> ""
then
Response write("Alle felter skal udfyldes")
else
strSQL = "Insert into personer (fornavn, efternavn, rating) values('" & Request.Form("Fornavn") & "','" & Request.Form("efternavn") & "','" & Request.Form("rating") & "') "
end if
end if
end if
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<h1>Du er nu tilmeldt!!!</h1>
</body>
</html>
FEJL meddelse
Microsoft VBScript compilation error '800a03ea'
Syntax error
/chresten/gem_data.asp, line 15
if request.form("fornavn") <> "" or
-----------------------------------^