ASP Datenbank Probleme
Vorweg: Das Problem hat sich erledigt, bin bei google auf seite 28 noch auf die Lösung des Problems gestossen: Die eingetragenen Daten waren für das Feld nicht zulässig, in diesem Fall zu lange...
Ich habe eine ASP-Seite mit der ich Daten in eine MS ACCESS-DB eintragen will.
Auf meinem Server zu Hause funktioniert es einwandfrei, nur beim Server im Web krieg ich hin und wieder Fehlermeldungen wie zb.
Zitat:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/newsupdate.asp, line 24
|
Der Source der Sendendatei:
Code:
<FORM NAME="formular" ACTION="newsupdate.asp" METHOD="post">
<INPUT TYPE="hidden" NAME="id" VALUE="3">
<DIV ALIGN="CENTER">
<TABLE BORDER=1 WIDTH=70%>
<TBODY>
<TR></TR>
<TR><TD COLSPAN=2>
<H1>Titel:
<INPUT NAME="title" VALUE=""></H1></TD>
<TD ALIGN="RIGHT" WIDTH="1%">
<SPAN CLASS=bez>
Datum:<INPUT NAME="date" VALUE="">
Autor:<INPUT NAME="author" VALUE="">
</SPAN></TD>
</TR>
<TR><TD COLSPAN=3>
<H4>Untertitel:
<INPUT NAME="subtitle" VALUE=""></H4></TD></TR>
<TR>
<TD><SPAN CLASS=abs>1. Absatz:
<TEXTAREA NAME="paragraph" COLS=40 ROWS=5></TEXTAREA></SPAN></TD>
<TD>
</TD><TD ROWSPAN="3">
Das Ändern oder Hinzufügen von Fotos ist erst nach Erstellung der Berichtes möglich.
Diesbezüglich Beschwerden bitte an das Salzamt(Salzburg/Österreich).
</TD>
</TR><TR>
<TD COLSPAN=2><SPAN CLASS=text>Text: <TEXTAREA NAME="text" cols=80 rows=20></TEXTAREA>
</SPAN></TD>
</TR><TR>
<TD><INPUT NAME="extlink" VALUE=""></TD>
<TD><INPUT NAME="photos" VALUE=""></TD>
</TR></TBODY>
</TABLE>
</DIV>
<INPUT TYPE="submit" VALUE="senden">
</FORM>
Der source der Uploaddatei
Code:
<%Server.ScriptTimeout=3600%>
<HTML>
<HEAD>
<link rel="stylesheet" href="STYLESHEET.CSS" type="text/css">
</HEAD>
<BODY BGCOLOR="#000000" TEXT="FFFFFF">
<TABLE BORDER=0 WIDTH="800"><TD>
<%
IF Request.Form("id") <> "" THEN
sqlstring = "Select * from news where id = "& Request.Form("id")
ELSE
sqlstring = "Select * from news"
END IF
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; "&"DBQ="& Server.MapPath("cms.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstring, conn, 2,3
IF Request.Form("id") = "" THEN
rs.AddNew
END IF
rs.Fields("Titel").Value = Request.Form("title")
rs.Fields("Datum").Value = Request.Form("date")
rs.Fields("Autor").Value = Request.Form("author")
rs.Fields("Untertitel").Value = Request.Form("subtitle") //Zeile 24
rs.Fields("Absatz").Value = Server.HTMLEncode(Request.Form("paragraph"))
rs.Fields("Text").Value = Server.HTMLEncode(Request.Form("text"))
rs.Fields("extlink").Value = Request.Form("extlink")
rs.Fields("gallerie").Value = Request.Form("photos")
rs.Update
Response.Write "Bericht wurde geschrieben..."
conn.close
%>
</TD></TABLE>
</BODY>
</HTML>
|
