Beiträge von technics

technics

sorry, aus versehen doppelt gepostet

Auch keine Lösung?

technics

ist das alte classic .asp (vbscript)

Diese Fehlermeldung erscheint wenn ich nichts eingebe und auf eintragen klicke:

Microsoft OLE DB Provider for ODBC Drivers Fehler "80004005'
[Microsoft][ODBC Microsoft Access Driver] Feld 'gaestebuch.eintragstitel' darf keine Zeichenfolge der Länge Null sein.
/absolventen/gaesteb_eintragen.asp, line 96

hier der source code:

HTML

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/rsAbsolventen.asp" -->
<%
' *** Edit Operations: declare variables


MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If


' boolean to abort record edit
MM_abortEdit = false


' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables


If (CStr(Request("MM_insert")) <> "") Then


  MM_editConnection = MM_rsAbsolventen_STRING
  MM_editTable = "gaestebuch"
  MM_editRedirectUrl = "gaesteb_anzeigen.asp"
  MM_fieldsStr  = "titel|value|beitragstext|value|name|value|email|value|Datum|value"
  MM_columnsStr = "eintragstitel|',none,''|eintragstext|',none,''|name|',none,''|email|',none,''|erfassungsdatum|',none,''"


  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")

  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next


  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If


End If
strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
 if strCAPTCHA = Trim(Session("CAPTCHA_" & Session.SessionID)) then
 else
  ErrorMessage = ErrorMessage & Server.URLEncode("You did not type in the verification info correctly.\n\n")
 End If 


%>
<%
' *** Insert Record: construct a sql insert statement and execute it


If (CStr(Request("MM_insert")) <> "") Then


  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"


  If (Not MM_abortEdit) Then
' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.execute = ","
    MM_editCmd.ActiveConnection.Close


    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If


End If


strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
 if strCAPTCHA = Trim(Session("CAPTCHA_" & Session.SessionID)) then
 else
  ErrorMessage = ErrorMessage & Server.URLEncode("You did not type in the verification info correctly.\n\n")
 End If 
%>
<%
set rsGaestebuch = Server.CreateObject("ADODB.Recordset")
rsGaestebuch.ActiveConnection = MM_rsAbsolventen_STRING
rsGaestebuch.Source = "SELECT eintragstitel, eintragstext, name, email, erfassungsdatum FROM gaestebuch"
rsGaestebuch.CursorType = 0
rsGaestebuch.CursorLocation = 2
rsGaestebuch.LockType = 3
rsGaestebuch.Open()
rsGaestebuch_numRows = 0
%>
<html><!-- #BeginTemplate "../Templates/neu_03.dwt" -->
<head>
<!-- #BeginEditable "doctitle" --> 
<title>G&auml;stebuch des Absolventenvereins - Wir freuen uns &uuml;ber Ihre Nachricht</title>
<link rel="stylesheet" href="../../absolventen.css" type="text/css">
<link rel="stylesheet" href="absolventen.css" type="text/css">
<!-- #EndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="absolventen.css" type="text/css">
</head>


<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#777798" background="images/abs_hg.gif">
<table width="1200" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td background="images/hg_gestreift.gif"><img src="images/topbanner.jpg" width="800" height="80" usemap="#Map" border="0"></td>
  </tr>
  <tr> 
    <td bgcolor="E1E6EB">&nbsp;</td>
  </tr>
  <tr> 
    <td valign="top"> 
      <table width="1200" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td bgcolor="#333366"><img src="images/clear.gif" width="1" height="1"></td>
        </tr>
        <tr> 
          <td bgcolor="#ffffff" width="800"> <!-- #BeginEditable "body" --> 
            <h3 align="center"><br>
              <font color="#660000">G&auml;stebuch: Wir freuen uns &uuml;ber Ihre 
              Nachricht</font></h3>
            <form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
              <table width="80%" border="0" cellspacing="1" cellpadding="0" align="center">
                <tr> 
                  <td> 
                    <table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#A6BACD">
                      <tr> 
                        <td> 
                          <table width="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#E1E6EB">
                            <tr> 
                              <td class="blau12" width="30%" valign="top">Headline/Titel:</td>
                              <td width="70%"> 
                                <input type="text" name="titel" size="60">
                              </td>
                            </tr>
                            <tr> 
                              <td class="blau12" width="30%" valign="top">Beitragstext:</td>
                              <td width="70%"> 
                                <textarea name="beitragstext" cols="60" rows="5"></textarea>
                              </td>
                            </tr>
                            <tr> 
                              <td class="blau12" width="30%">Name:</td>
                              <td width="70%"> 
                                <input type="text" name="name" size="50">
                              </td>
                            </tr>
                            <tr> 
                              <td class="blau12" width="30%">E-Mail:</td>
                              <td width="70%"> 
                                <input type="text" name="email" size="50">
                              </td>
                            </tr>
                            <tr> 
                              <td class="fett" width="30%">&nbsp;<tr>
      <td valign= " Oberseite " align= " rechtes " ></td>
      <td valign= " Oberseite " ><img src= " aspcaptcha.asp " alt= "" width= " 86 " height= " 21 "/>
   <font face= " Arial " size= " 2 " color= " #000000 " >Trage den Zahlencode ein</font><br>
   <input name= " strCAPTCHA " type= " Text " id= " strCAPTCHA " maxlength= " 8 "/></td>
    </tr></td>
                              <td width="70%"> 
                                <input type="submit" name="Abschicken" value="Eintragen">
                              </td>
                            </tr>
                          </table>
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
              <p> </p>
              <input type="hidden" name="Datum" value=<%=date%>>
              <input type="hidden" name="MM_insert" value="true">

            </form>
            <h1><a href="gaesteb_anzeigen.asp">Eintr&auml;ge anzeigen</a></h1>
            <p>&nbsp; </p>
            <p>&nbsp;</p>
            <!-- #EndEditable --></td>
          <td bgcolor="#FFFFFF" width="400">&nbsp;</td>
        </tr>
        <tr> 
          <td bgcolor="E1E6EB" width="800"><img src="images/clear.gif" width="1" height="2"><br>
            <!-- #BeginLibraryItem "/Library/end.lbi" -->
<link rel="stylesheet" href="absolventen.css" type="text/css">


<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><span class="blau"><a href="vorstand.htm">Vostand</a>|<a href="ziele.htm">Ziele</a>|<a href="mitglied_werden.asp">Wie 
  wird man Mitglied</a>|<a href="vorteil.htm">Vorteile f&uuml;r Mitglieder</a>|<a href="jobs.asp">Jobs</a>|<a href="mitglieder.asp">Mitgliederverzeichnis</a>|<a href="news.asp">News-Veranstaltungen</a>|<a href="kontakt.asp">Kontakt</a>|<a href="gaesteb_anzeigen.asp">G&auml;stebuch</a>|<a href="links.asp">Links</a>|<a href="default.asp">Home</a><br>
  Absolventenverein der Tourismusschulen Klessheim, Klessheimer Stra&szlig;e 22, 
  A-5071 Wals-Siezenheim bei Salzburg, Austria<br>
  Telefon: +43/(0)662/85 12 63 -0 Telefax: +43/(0)662/85 12 63- 4, email: Elsbeth 
  Hohensinn email: <a href="mailto:ehohensinn@klessheim.sts.ac.at">ehohensinn@klessheim.sts.ac.at</a></span></font></div>
<!-- #EndLibraryItem --><img src="images/clear.gif" width="1" height="2"></td>
          <td bgcolor="E1E6EB">&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td bgcolor="#333366">&nbsp;</td>
  </tr>
</table>
<p>&nbsp;</p>
<br>








<!-- ******** BEGIN ALLWEBMENUS CODE FOR nav ******** -->
<img name='awmMenuPathImg-nav' id='awmMenuPathImg-nav' src='./awmmenupath.gif' alt=''>
<script type='text/javascript'>var MenuLinkedBy='AllWebMenus [2]', awmBN='456'; awmAltUrl='';</script>
<script src='nav.js' language='JavaScript1.2' type='text/javascript'></script>
<script type='text/javascript'>awmBuildMenu();</script>
<!-- ******** END ALLWEBMENUS CODE FOR nav ******** -->
</BODY>

Alles anzeigen

mark

technics

leider kenn ich mich in asp nicht wirklich aus, hab erst gerade angefangen mich ein bischen vertraut damit zu machen.

wie mache ich das?

thx@lot

dummie

technics

hi members,

die Abfrage neines Gästebuchs funktioniert nicht mehr richtig. Woran könnte das liegen? Einträge sind möglich aber wenn ich nichts eingebe und auf eintragen klicke kommt eine Fehlermeldung.

hier der link:
http://www.klessheim.sts.ac.at/absolventen/gaesteb_eintragen.asp

thx

mark

Beiträge von technics

guestbook

guestbook

guestbook

guestbook

Rechtliches