[aspdebeginners] AW: Re: Newsletter

Tue, 12 Mar 2002 13:24:31 -0800 

Lieber Toni,

Es ist mir zwar peinlich, wie ich mich anstelle, aber egal. Vielen Dank
f�r die schnelle Antowrt, es klappt nur noch nicht. Folgende
Fehlermeldung: 

Laufzeitfehler in Microsoft VBScript Fehler '800a01a8' 

Objekt erforderlich: '' 

/Oberwalder/Newsletter/newsletter-eintragen.asp, line 110 



Ich schicke Dir mal den ganzen Quark:


<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/Access.asp" -->
<%
Datum= date()
%>
<%
set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_Access_STRING
Recordset2.Source = "SELECT *  FROM NewsletterSections"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
If Request.Form("radiobutton") = "delete" Then
        Email = Request.QueryString("Email")
        strSQL = "DELETE FROM Newsletter WHERE Email = '" & Email & "'"
        Conn.Execute(strSQL)
        CHtml = CHtml & "Ihre E-Mail Adresse wurde aus unserer Datenbank
gel�scht."
End If
%>
<%
If Request.Form("radiobutton") = "add" Then
        Email = Request.QueryString("Email")
        strSQL = "INSERT FROM Newsletter WHERE Email = '" & Email & "'"
        Conn.Execute(strSQL)
        CHtml = CHtml & "Ihre E-Mail Adresse wurde in unsere Datenbank
eingetragen."
End If
%>
<html>
<head>
<title>Newsletter</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../Home.css" type="text/css">
<link rel="stylesheet" href="../oberwalder.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
function validate(theForm)
{
if (theForm.Group.value == "" || theForm.Group.value.length < 1)
{
alert("W�hlen Sie bitte eine Gruppe");
theForm.Group.focus();
return false;
}

return true;
}
</SCRIPT>
<form name="form1" method="post">
  <table width="576" border="0" align="center" bgcolor="#cccccc"
cellpadding="0" cellspacing="1">
    <tr> 
      <td> 
        <table width="100%" border="0" cellspacing="2" cellpadding="0"
bgcolor="#F4F4F4">
          <tr> 
            <td bgcolor="#CCCCCC" class="Name"> 
              <div align="center">Unser Newsletter</div>
            </td>
          </tr>
          <tr> 
            <td> 
              <div align="justify"> 
                <table width="98%" border="0" cellspacing="2"
cellpadding="0" align="center">
                  <tr> 
                    <td class="Angaben"> 
                      <div align="justify" class="Angaben">Ihre E-mail
Adresse</div>
                    </td>
                    <td> 
                      <input type="text" name="Email" class="Angaben"
size="50">
                    </td>
                  </tr>
                  <tr> 
                    <td class="Angaben">W&auml;hlen Sie eine Gruppe</td>
                    <td> 
                      <select name="select" class="Angaben">
                        <option>W&auml;hlen Sie...</option>
                        <%
While (NOT Recordset2.EOF)
%>
                        <option
value="<%=(Recordset2.Fields.Item("NewsGroup").Value)%>"
><%=(Recordset2.Fields.Item("NewsGroup").Value)%></option>
                        <%
  Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
  Recordset2.MoveFirst
Else
  Recordset2.Requery
End If
%>
                      </select>
                    </td>
                  </tr>
                  <tr> 
                    <td width="44%" height="16"> 
                      <input type="hidden" name="textfield"
value="<%=Datum%>">
                    </td>
                    <td width="56%" height="16">&nbsp;</td>
                  </tr>
                  <tr> 
                    <td width="44%" height="23">&nbsp;</td>
                    <td width="56%" class="Angaben"
height="23">Eintragen 
                      <input type="radio" name="radiobutton"
value="add">
                      Austragen 
                      <input type="radio" name="radiobutton"
value="delete">
                    </td>
                  </tr>
                </table>
                <div align="center"> 
                  <input type="submit" name="Abschicken"
value="Abschicken">
                </div>
              </div>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <%
If Request.Form("radiobutton") = "delete" Then
        Email = Request.QueryString("Email")
        strSQL = "DELETE FROM Newsletter WHERE Email = '" & Email & "'"
        Conn.Execute(strSQL)
        CHtml = CHtml & "Ihre E-Mail Adresse wurde aus unserer Datenbank
gel�scht."
End If
%>
<%
If Request.Form("radiobutton") = "add" Then
        Email = Request.QueryString("Email")
        strSQL = "INSERT FROM Newsletter WHERE Email = '" & Email & "'"
        Conn.Execute(strSQL)
        CHtml = CHtml & "Ihre E-Mail Adresse wurde in unsere Datenbank
eingetragen."
End If
%>
</form>
</body>
</html>
<%
Recordset2.Close()
%>


| 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

Antwort per Email an