Problemer med en betingelse
Koden her er til at indsætte informationer fra en form, til databasen. Det lykkedes unden problemer.Derefter opstillede jeg en betingelse for at være sikker på at visse felter ikke er tomme.
Nu får jeg så en lidt underlig fejl:
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/tv2004/insertnews.asp, line 36
Line 36 er den anden sidste i asp koden (End If).
Her her hele koden:
<%
If Request.Form("Title") = "" OR Request.Form("NewsPreview") = "" OR Request.Form("NewsText") = "" OR Request.Form("NewsPreview") = "" OR Request.Form("NewsPreview") = "" Then
Response.Write "<p>Du har ikke udfyldt alle nødvendige felter!<br /><a href='java script:history.back(-1)'>Gå tilbage og ret fejlen her</a>.</p>"
Else If Request.Form("NewsWriter") = "" AND Request.Form("NewsSource") = "" Then
Response.Write "<p>Du skal angive enten skribent, eller kilde!<br /><a href='java script:history.back(-1)'>Gå tilbage og ret fejlen her</a>.</p>"
Else
' Forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("Database/data.mdb")
Conn.Open DSN
' SQL
strSQL = "INSERT INTO News(SubmitDate, Title, PreviewText, ArticleText, Thumbnail, ArticleImage, ArticleImage2, Writer, Source) VALUES('" & Request.Form("SubmitDate") & "','" & Request.Form("Title") & "','" & Request.Form("NewsPreview") & "','" & Request.Form("NewsText") & "','" & Request.Form("PreviewThumbnail") & "','" & Request.Form("Image1") & "','" & Request.Form("Image2") & "','" & Request.Form("NewsWriter") & "','" & Request.Form("NewsSource") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Write "<p>Nyheden er nu oprettet.<br /><a href='createnews.asp' target='_self'>Opret endnu en nyhed</a>, eller gå tilbage til <a href='default.asp' target='_self'>nyhedsforsiden</a>.</p>"
End If
%>
Hvad er der galt?
