Avatar billede smidt Novice
09. juli 2001 - 16:06 Der er 1 løsning

Tilføje email

Jeg har en formular hvor jeg gerne vil have at feltet email bliver tilføjet til en database hvis brugeren vælger ja....

Her er koden:

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<title>vipiil - send salgsopstilling</title>
</head>
<body bgcolor=#ffffff>
<%
Dim strName, strEmail, strQuery, strAdresse, strBy, strTlf, strTlfArbejde, strSagsnr, strSalgsopstilling, strArchive
strName = Trim(Request.Form(\"ClientName\"))
strAdresse = Trim(Request.Form(\"ClientAdresse\"))
strBy = Trim(Request.Form(\"ClientBy\"))
strTlf = Trim(Request.Form(\"ClientTlf\"))
strTlfArbejde = Trim(Request.Form(\"ClientTlfArbejde\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strQuery = Trim(Request.Form(\"ClientQry\"))
strSagsnr  = Trim(Request.Form(\"ClientSagsnr\"))
strSalgsopstilling  = Trim(Request.Form(\"ClientSalgsopstilling\"))
strArchive = Trim(Request.Form(\"ClientArchive\"))


If (strName <> \"\") Then
    Dim objMail, aRecipients
   
    if strArchive = \"1\" then


set conn=Server.CreateObject(\"ADODB.Connection\")
conn.Provider=\"Microsoft.Jet.OLEDB.4.0\"
conn.Open(Server.Mappath(\"SpawnedMailer.mdb\"))

set rsMail = Server.CreateObject(\"ADODB.recordset\")
rsMail.Open \"SELECT * FROM MailingList WHERE MailingAddy=\'\" & strEmail & \"\'\", conn

    If not rsMail.EOF Then
        If rsMail(\"MailingAddy\") = strEmail Then

        End if
       
    Else

        ArchiveSQL = \"INSERT into MailingList (MailingAddy) VALUES (\'\" & strEmail & \"\');\"
        conn.Execute ArchiveSQL
       
    end if
   
rsMail.close
conn.close

end if

   
   
   
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
    objMail.From = \"ssm@minolta.dk\"
    objMail.To = \"ssm@minolta.dk\"
    objMail.Subject = \"ddd! \"
    objMail.Body = \"!!!!  \"
    objMail.Send

   
    Response.Write \"Tak for din bestilling !  \" & strName
    Set objMail = Nothing

Else
%>

<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<div align=\"center\">
  <center>
<TABLE BORDER=0 width=\"550\">
  </center>
  <center>
  </center>
  <center>
<tr><td width=\"91\">Navn:</td><td width=\"11\"><img border=\"0\" src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td width=\"428\" colspan=\"4\"><INPUT NAME=\"ClientName\" VALUE=\"\" SIZE=57 tabindex=\"1\"></td></tr>
<tr><td width=\"91\">Adresse:</td><td width=\"11\"><img border=\"0\" src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td width=\"428\" colspan=\"4\"><input type=\"text\" name=\"ClientAdresse\" size=\"57\" tabindex=\"2\"></td></tr>
<tr><td width=\"91\">Postnr. og by:</td><td width=\"11\"><img border=\"0\" src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td width=\"428\" colspan=\"4\"><input type=\"text\" name=\"ClientBy\" size=\"57\" tabindex=\"3\"></td></tr>
<tr>
  <td width=\"91\">Tlf:</td><td width=\"11\"></td><td width=\"428\" colspan=\"4\"><input type=\"text\" name=\"ClientTlf\" size=\"18\" tabindex=\"4\">Tlf (arbejde/mobil):<input type=\"text\" name=\"ClientTlfArbejde\" size=\"20\" tabindex=\"5\"></td>
</tr>
<tr><td width=\"91\">e-mail adresse</td><td width=\"11\"></td><td width=\"428\" colspan=\"4\"><INPUT NAME=\"ClientEmail\" SIZE=57 tabindex=\"6\"></td></tr>
<tr><td width=\"91\"></td><td width=\"11\"></td>
  </center>
  <td width=\"428\" colspan=\"4\">
    <p align=\"left\">Få automatisk opdatering og nyhedsbrev
    tilsendt&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ja<input type=\"radio\" value=\"1\" checked name=\"ClientArchive\">&nbsp;&nbsp;&nbsp;&nbsp;
    Nej<input type=\"radio\" name=\"ClientArchive\" value=\"0\"></td></tr>
  <center>
<tr><td width=\"91\"></td><td width=\"11\"></td><td width=\"94\"></td><td width=\"90\"></td><td width=\"16\"></td><td width=\"220\"></td></tr>
<tr><td width=\"91\"></td><td width=\"11\"></td><td width=\"94\"><INPUT TYPE=SUBMIT VALUE=\"Send\" tabindex=\"7\"></td><td width=\"90\"></td><td width=\"16\"><img border=\"0\" src=\"../images/stjerne.gif\" width=\"10\" height=\"10\" align=\"right\"></td><td width=\"220\">skal
    udfyldes</td></tr>
</TABLE>
  </center>
</div>
</FORM>

<% End If %>


</body>
</html>

Men her får jeg en fejl:

Microsoft VBScript runtime error \'800a01f4\'

Variable is undefined: \'conn\'

/mail/spaw1.asp, line 28

Jeg vil gerne have hjælp til at få den til at virke samt til at hvis strEmail er tomt så skal den ikke gøre noget.
Avatar billede smidt Novice
09. juli 2001 - 16:07 #1
s
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester