Hejsa.
Jeg har nedenstående script, som bruges som et slags nyhedsboard. Jeg vil
gerne have scriptet til at checke om man har indtastet en værdi i begge
felter, for derefter at skrive at man venligst skal udfylde begge felter.
Dette har jeg såmænd fået til at virke, men så står det til gengæld også på
siden så snart man starter den i stedet for kun, hvis man ikke har indtastet
noget i begge felter. Er der ikke en der gider forklare mig, hvordan det kan
se ud?? På forhånd tak!
<% @Language = VBScript %>
<%
Option explicit
Response.Buffer = True
Dim Nyhed, Forfatter, Con, DBPath, Sql
%>
<%
FUNCTION fixQuotes( theString )
fixQuotes = Replace( theString, "'", "''" )
End FUNCTION
Nyhed = Request.Form( "Nyhed" )
Forfatter = Request.Form( "Forfatter" )
Set Con = Server.CreateObject( "ADODB.Connection" )
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
If Request.Servervariables("Content_Length") > 0 Then
Sql = "INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES('" & Now() &
"','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
Con.Execute Sql
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Nyhedsting</title>
<link rel=stylesheet type="text/css" href="stylenormal.css">
</head>
<body>
<h1>Skriv NYHED</h1>
<br>
<br><br>
<form action="nyhed.asp" method="POST" target="_self">
<table border="0" width="600">
<tr>
<td valign="top" width="150">Nyhed</td>
<td><textarea cols="30" rows="8" name="Nyhed"></textarea></td>
</tr>
<tr>
<td>Forfatter</td>
<td><input type="text" name="Forfatter"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value=" - SKRIV -
"></td>
</tr>
</table>
</form>
</body>
</html>