betingelse problem.....
Jeg har lavet en nyhedssystem, men jeg mangler betingelser.Det skal være sådan at være gang man glemmer at skrive overskriften skal der kommer en lille fejl melding "Du har glemt overskriften!" og når man har skrevet 2 nyheder med den samme overskrift skal der komme en anden "Den nyhed findes allerede"
Her er koden:
<%
Response.Buffer = True
' Hent data fra formular
Nyhed = replace(Request( "Nyhed" ),vbCrLf,"<br>")
Forfatter = Request( "Forfatter" )
overskrift = Request( "overskrift" )
' Connection til database.
Set Con = Server.CreateObject( "ADODB.Connection" )
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' ... Ogsaa saetter vi vores data fra formularen ind i databasen
if Request.Servervariables("Content_Length") > 0 THEN
Sql = "INSERT INTO nyheder (Dato, Nyhed, overskrift, Forfatter) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( overskrift ) & "','" & fixQuotes( Forfatter ) & "')"
Con.Execute Sql
' Og her skriver vi lige en lille besked om at nu er nyheden tilfoejet
Response.Write "<strong>Tak for din nyhed. </strong>"
end if
%>
Hjælp mig venner!
