[aspdebeginners] Re: AW: In eine Datenbank schreiben

Martin Enzinger Fri, 14 Dec 2001 06:37:10 -0800

Dann werd ich mal beim Provider nachfragen.
Das ist der Code:

<% Option Explicit %>
<html>
<head><meta http-equiv="expires" content="60">
 <title>madcore.de - BOARD - EINGETRAGEN</title>
</head>


<body bgcolor="#FFFFFF" textcolor="#003366">
<%
' Variablen deklarieren
Dim strDB
Dim objCon, strCon
Dim strSQL, dblVKPreis, strthbcolor, strtdbcolor
Dim strWas, strWo, strWann, strBemerkung, strBewertung, strDatum, strZeit,
strTag, strMonat, strJahr, strEMail, strWer, comd, objPame, intcf, laenge,
dermon, derd
' Formulareingaben lesen und verarbeiten
intcf = 0




If Request.Form("Bemerkung") <> "" then
 strBemerkung = Request.Form("Bemerkung")
 laenge = len(strBemerkung)
Else
 intcf = intcf + 1
End If

If Request.Form("Wer") <> "" then
 strWer = Request.Form("Wer")
Else
 intcf = intcf + 1
End If

If Request.Form("EMail") <> "" then
 strEMail = Request.Form("EMail")
Else
 intcf = intcf + 1
End If



dermon = month( now )
if len(dermon) = 1 then
 dermon = "0" & dermon
end if
derd = day( now )
if len(derd) = 1 then
 derd = "0" & derd
end if

strJahr = year( now )

strDatum = derd & "." & dermon & "." & strJahr
strDatum = CDate(strDatum)

strTag = derd + 10
if strTag >= 29 then
 strTag = strTag - 29
 strMonat = dermon + 1
else
 strMonat = dermon
end if

if len(strTag) = 1 then
 strTag = "0" & strTag
end if
if len(strMonat) = 1 then
 strMonat = "0" & strMonat
end if

strZeit = strTag & "." & strMonat & "." & strJahr
strZeit = CDate(strZeit)


%><center><br><br><br><br>
<table border="0" width="400">
    <tr>
           <td width="35%" align="right"><font face="Arial, Verdana,
Helvetica" color="#003366" size="2">Name: &nbsp;&nbsp;</font></td>
     <td width="70%"><font face="Arial, Verdana, Helvetica" color="#003366"
size="2"><b><a href="boardmail-1.asp?aX=<% = strEMail %>"><font
color="#003366"><% = strWer
%></font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b>Datum:
&nbsp;&nbsp;<b><% = strDatum %></b></font></td>
    </tr>
    <tr>
        <td width="35%" align="right"><font face="Arial, Verdana, Helvetica"
color="#003366" size="2">Bleibt im Board bis: &nbsp;&nbsp;</font></td>
     <td width="70%"><font face="Arial, Verdana, Helvetica" color="#003366"
size="2"><b><% = strZeit %> </b></font></td>
    </tr>
    <tr>
        <td width="35%" align="right"><font face="Arial, Verdana, Helvetica"
color="#003366" size="2">Bemerkung: &nbsp;&nbsp;</font></td>
     <td width="70%"><font face="Arial, Verdana, Helvetica" color="#003366"
size="2"><b><% = strBemerkung %></b></font></td>
    </tr>





</table>
<br><br><br>
<font face="Arial, Verdana, Helvetica" color="#003366" size="2"><b>
<%
if intcf = 0 then
strDB = "Data Source=" & _
Server.MapPath("/DATENBANK/GAESTE.MDB")
' Objekt f�r den Verbindungsaufbau mit der Datenbank
Set comd = Server.CreateObject("ADODB.Command")
Set objCon = Server.CreateObject("ADODB.Connection")
' Parameter zum �ffnen der Datenbank
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB
objCon.Open strCon
comd.ActiveConnection = objCon


comd.CommandText= "INSERT INTO Board ( Wann, Bemerkung, Bis, Wer, EMail)
VALUES ( ?, ?, ?, ?, ?)"

Set objPame=comd.CreateParameter(, 200, , 255, strDatum)
 comd.Parameters.Append objPame
Set objPame=comd.CreateParameter(, 200, , laenge, strBemerkung)
 comd.Parameters.Append objPame
Set objPame=comd.CreateParameter(, 200, , 255, strZeit)
 comd.Parameters.Append objPame
Set objPame=comd.CreateParameter(, 200, , 255, strWer)
 comd.Parameters.Append objPame
Set objPame=comd.CreateParameter(, 200, , 255, strEMail)
 comd.Parameters.Append objPame
comd.Execute

' Verbindungsobjekt schlie�en
objCon.close
Set objCon = Nothing
Response.Write "Danke f&uuml;r deinen Eintrag in das Board!"
Response.Write "<br><br><a href='board-3.asp'><font
color='#003366'>Eintr&auml;ge</font></a>"
else
 if intcf = 1 then
  Response.Write "Du hast " & intcf & " Feld ausgelassen, schreib bitte
etwas hinein."
 else
  Response.Write "Du hast " & intcf & " Felder ausgelassen, schreib bitte
etwas hinein."
 end if
end if
%>
</b></font>
</center>
</body>
</html>
----- Original Message -----
From: Martin Enzinger <[EMAIL PROTECTED]>
To: ASP Diskussionsliste fuer Anfaenger <[EMAIL PROTECTED]>
Sent: Friday, December 14, 2001 3:35 PM
Subject: [aspdebeginners] Re: AW: In eine Datenbank schreiben


> Code kommt gleich. Wie schaut man nach ob der IUSR_XXX Schreibrechte auf
die
> DB hat?
> Ich glaub n�mlich, dass es an dem liegt, weil auf meinem PWS alles
> funktioniert.
> ----- Original Message -----
> From: Buchner Gerhard <[EMAIL PROTECTED]>
> To: ASP Diskussionsliste fuer Anfaenger <[EMAIL PROTECTED]>
> Sent: Friday, December 14, 2001 3:30 PM
> Subject: [aspdebeginners] AW: In eine Datenbank schreiben
>
>
> > Hi Martin,
> >
> > > Microsoft JET Database Engine- Fehler '80004005'
> > >
> > > Operation muss eine aktualisierbare Abfrage verwenden.
> >
> > Schau mal ob der IUSR_XXX Schreibrechte auf die DB hat.
> >
> > Ciao
> > Buchi
> >
> > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> > | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> > | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> > | Sie knnen sich unter folgender URL an- und abmelden:
> > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

[aspdebeginners] Re: AW: In eine Datenbank schreiben

Antwort per Email an