utt...af min kiosk
hvad er der galt med denne kode?Det er første gang at jeg prøver mig med asp, så dette ser umiddelbart rigtigt ud for mig.
Mit problem er at de data man indtaster i formularen bliver ikke skrevet i databasen.
<%
Response.Buffer = True
Function FixQuotes( TheString )
FixQuotes = Replace ( TheString, \"\'\", \"\'\'\" )
End Function
Nyhed = Request( \"Nyhed\" )
Forfatter = Request( \"Forfatter\" )
Billede = Request( \"Billede\" )
Set Con = Server.CreateObject( \"ADODB.Connection\" )
DBPath = \"DBQ=\" & Server.MapPath( \"DB.mdb\" )
Con.Open \"Driver={Microsoft Access Driver (*.mdb)}; \" & DBPath
If Request.ServerVariables(\"Content_Lenght\") > 0 Then
Sql = \"INSERT INTO Casm2000 (Dato, Nyhed, Forfatter, Billede) VALUES(\'\" & Date() & \"\',\'\" & fixQuotes( Nyhed ) & \"\',\'\" & fixQuotes( Forfatter ) & \"\',\'\" & FixQuotes( Billede ) & \"\')\"
Con.Execute Sql
Response.Write \"Dine Data er nu blevet optaget i databasen\"
End If
%>
<HTML>
<HEAD>
<TITLE>
1
</TITLE>
</HEAD>
<BODY><BR><BR><BR>
<FORM action=\"content.asp\" method=\"POST\" target=\"_self\">
<p>
<input type=\"text\" name=\"Forfatter\">
</p>
<p>
<input type=\"file\" name=\"Billede\">
</p>
<p>
<textarea name=\"Nyhed\" cols=\"50\" rows=\"1\"></textarea>
</p>
<p>
<input type=\"submit\" name=\"Submit\" value=\"Submit\">
</p>
</FORM>
</BODY>
</HTML>
