[aspdebeginners] Datenbankfehler

AspFreak Thu, 18 Oct 2001 12:46:58 -0700

Ich habe hier ein Script das Daten aus einem Formular in eine Datenbank
speichert. Dieses Script hat auch um 20 Uhr noch funktioniert. (habe 2 Tage
lang daran rum geschraubt) Aber aufeinmal funktionierte es nicht mehr :-(
und habe keine Ahnung warum es aufeinmal nicht mehr funktioniert ?!?!


Kannst du mir jemand helfen ??

Was habe ich vergessen?


Folgend Fehlermeldung kommt:

Microsoft OLE DB Provider for ODBC Drivers- Fehler '80004005'

[Microsoft][ODBC Microsoft Access Driver]Allgemeiner Fehler
Registrierungsschl�ssel 'Temporary (volatile) Jet DSN for process 0xfc8
Thread 0xa98 DBC 0x1166a024 Jet' kann nicht ge�ffnet werden.

/signupprocess.asp, line 133




Du kannst es dir ja mal anschauen: www.aspfreak.de

und dann auf registrieren klicken.



Und hier der Quelltext:

<HTML>
<HEAD>
<TITLE>Registrierung - &Uuml;berpr&uuml;fen der Daten !</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff">

<style type="text/css">
<!--
BODY
{
 MARGIN-LEFT: 0px;
 MARGIN-RIGHT: 0px;
 MARGIN-TOP: 0px;
 FONT-FAMILY: Verdana, Arial, Helvetica;
 BACKGROUND-COLOR: #9CC6E0;
 color : #000000;
 font-size : 8pt;
 scrollbar-face-color: #9CC6E0;
}
.Link_Schwarz
{
  color: #000000;
  font-weight : bold;
}
.Link_Blau
{
  color: #7B9DCB;
  font-weight : bold;
}
.Button
{
  color: #7B9DCB;
  font-weight : bold;
  background-color : #000066;
  border : 1px solid Black;
}
.Tabel
{
  border : 1px solid Black;
}

//-->


//-->
</style>



<H1><font size="2" face="Verdana">Registrierung - &Uuml;berpr&uuml;fen der
Daten !</font></H1>
  <font face="Verdana"><%
strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ="
strConnection = strConnection & Server.MapPath("~db/user.mdb")
strConnection = strConnection & ";DriverId=25;FIL=MS
Access;MaxBufferSize=512;PageTimeout=5;"

strFinal = Trim(Request.Form("FinalSubmit"))

strVorname = Trim(Request.Form("Vorname"))
strNachname = Trim(Request.Form("Nachname"))
strEmail = Trim(Request.Form("eMail"))
strURL = Trim(Request.Form("URL"))
strWohnort = Trim(Request.Form("Wohnort"))
strNickname = Trim(Request.Form("Nickname"))
strPasswort = Trim(Request.Form("Passwort"))

If "Yes" <> strFinal Then
 If "" = strVorname Or Len(strEmail) < 6 Or 0 = Instr(strEmail,"@") Or 0 =
Instr(strEmail,".") Then
  Response.Write "Nicht alle ben&ouml;tigten Felder (Name, Emailadresse)
wurden korrekt eingegeben!"
 Else
%></font>
  <p><font face="Verdana" size="1">Bevor Dein Eintrag bei uns in die
Datenbank aufgenommen wird, kontrolliere ihn bitte noch einmal:</font><font
face="Verdana" size="2"><br>
   </font>
  <ul>
   <li type="square"><font face="Verdana" size="2"><b>Dein Vorname:</b>
<%=SafeHtmlEncode(strVorname)%></font>
   <li type="square"><font face="Verdana" size="2"><b>Dein Nachname:</b>
<%=SafeHtmlEncode(strNachname)%></font>
   <li type="square"><font face="Verdana" size="2"><b>Deine
Emailadresse:</b> <%=SafeHtmlEncode(strEmail)%></font>
   <li type="square"><font face="Verdana" size="2"><b>Dein Homepage:</b>
<%=SafeHtmlEncode(strUrl)%></font>
   <li type="square"><font face="Verdana" size="2"><b>Dein Wohnort:</b>
<%=SafeHtmlEncode(strWohnort)%><br>
    </font><br>
  </ul>
  <ul>
   <li type="square"><font face="Verdana" size="2"><b>Dein Nickname:</b>
<%=SafeHtmlEncode(strNickname)%></font>
   <li type="square"><font face="Verdana" size="2"><b>Dein Passwort:</b>
<%=SafeHtmlEncode(strPasswort)%></font>
  </ul>
  <ul>

  </ul>
  <font face="Verdana" size="1">Wenn alles stimmt, klicke auf
&quot;<b>senden!</b>&quot;. Danke.</font>
  <p><font face="Verdana"> <br>
   </font></p>
  <form method=POST action='<%=Request.ServerVariables("SCRIPT_NAME")%>'>
   <div align="left">
    <input type="hidden" name="Vorname"
value="<%=SafeHtmlEncode(strVorname)%>">
    <input type="hidden" name="Nachname"
value="<%=SafeHtmlEncode(strNachname)%>">
    <input type="hidden" name="eMail" value="<%=SafeHtmlEncode(strEmail)%>">
    <input type="hidden" name="Url" value="<%=SafeHtmlEncode(strUrl)%>">
    <input type="hidden" name="Wohnort"
value="<%=SafeHtmlEncode(strWohnort)%>">
    <input type="hidden" name="Nickname"
value="<%=SafeHtmlEncode(strNickname)%>">
    <input type="hidden" name="Passwort"
value="<%=SafeHtmlEncode(strPasswort)%>">
    <input type="hidden" name="FinalSubmit" value="Yes">
    <input type="submit" class="Button" value="senden !"></div>
  </form>
  <font face="Verdana" size="1"><b><%
 End If
Else
 ' we are submitted and going to the database
 If "" = strVorname Or Len(strEmail) < 6 Then
  Response.Write "<p>Nicht alle ben&ouml;tigten Felder (Vorname,
Emailadresse) wurden korrekt eingegeben!</p>"
 Else
  Set bc = Server.CreateObject("MSWC.BrowserType")
  strPlatform = bc.Platform
  strBrowser = bc.Browser & " " & bc.Version
  Set bc = Nothing
  strDate = DatePart("d",Date) & "." & DatePart("m",Date) & "." &
DatePart("yyyy",Date)

  ' shorten to correct database lengths
  strVorname = Left(SafeHtmlEncode(strVorname),50)
  strNachname = Left(SafeHtmlEncode(strNachname),50)
  strEmail = Left(SafeHtmlEncode(strEmail),50)
  strURL = Left(SafeHtmlEncode(strURL),50)
  strWohnort = Left(SafeHtmlEncode(strWohnort),50)
  strNickname = Left(SafeHtmlEncode(strNickname),50)
  strPasswort = Left(SafeHtmlEncode(strPasswort),50)
  strBrowser = Left(SafeHtmlEncode(strBrowser),20)
  strPlatform = Left(SafeHtmlEncode(strPlatform),20)

  Set conn = CreateObject("ADODB.Connection")
  conn.Open strConnection
  Set rs = CreateObject ("ADODB.Recordset")
  rs.Cursortype = 1
  rs.Locktype = 3
  rs.Open "SELECT * FROM User WHERE IdField=-1", conn
  rs.AddNew
   rs.fields("Vorname") = strVorname
   rs.fields("Nachname") = strNachname
   rs.fields("Email") = strEmail
   rs.fields("Url") = strURL
   rs.fields("Wohnort") = strWohnort
   rs.fields("Nickname") = strNickname
   rs.fields("Passwort") = strPasswort
   rs.fields("Browser") = strBrowser
   rs.fields("OperatingSystem") = strPlatform
   rs.fields("EntryDate") = strDate
  rs.Update
  rs.Close
  conn.Close
  Response.Write "<p>Hi deine Anmeldung bei aspfreak.de war erfolgreich
:-).</p>"
  Response.Write "<p><a href=""login.asp"">zur&uuml;ck</A> zur
Startseite.</p>"
 End If
End If

Function SafeHtmlEncode(strIn)
 If Not IsNull(strIn) Then
  SafeHtmlEncode = Server.HtmlEncode(strIn)
 Else
  SafeHtmlEncode = ""
 End If
End Function
%></b></font>
 </BODY>
</HTML>


Ich hoffe ihr k�nnst mir helfen !!!

MFG


Erik Fichtner




| 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] Datenbankfehler

Antwort per Email an