Thanks Mark
I will give it a try
Magda
----- Original Message -----
From: "Mark Bieganek" <
mark@...>
To: <
BKWeb_UltraDev@yahoogroups.com>
Sent: Tuesday, October 12, 2004 3:47 PM
Subject: RE: [BKWeb_UltraDev] email and database
>
> Hi Magda,
>
> This really all depends on which mailing components are available to you
on
> your server, and which database/programming language you are using. If you
> would like to see all of the components available to you on your server,
> copy and paste the following code into an ASP page, upload it to your
server
> and run the code by opening the page.
>
>
> <% @ Language="VBScript" %>
> <% Option Explicit %>
> <%
> Dim theComponents(18)
>
> theComponents(0) = Array("ABMailer.Mailman", "ABMailer v2.2+")
> theComponents(1) = Array("Persits.MailSender", "ASPEMail")
> theComponents(2) = Array("SMTPsvg.Mailer", "ASPMail")
> theComponents(3) = Array("SMTPsvg.Mailer", "ASPQMail")
> theComponents(4) = Array("CDONTS.NewMail", "CDONTS (IIS 3/4/5)")
> theComponents(5) = Array("CDONTS.NewMail", "Chili!Mail (Chili!Soft ASP)")
> theComponents(6) = Array("CDO.Message", "CDOSYS (IIS 5/5.1/6)")
> theComponents(7) = Array("dkQmail.Qmail", "dkQMail")
> theComponents(8) = Array("Dundas.Mailer", "Dundas Mail (QuickSend)")
> theComponents(9) = Array("Dundas.Mailer", "Dundas Mail (SendMail)")
> theComponents(10) = Array("Geocel.Mailer", "GeoCel")
> theComponents(11) = Array("iismail.iismail.1", "IISMail")
> theComponents(12) = Array("Jmail.smtpmail", "JMail")
> theComponents(13) = Array("MDUserCom.MDUser", "MDaemon")
> theComponents(14) = Array("ASPMail.ASPMailCtrl.1", "OCXMail")
> theComponents(15) = Array("ocxQmail.ocxQmailCtrl.1", "OCXQMail")
> theComponents(16) = Array("SoftArtisans.SMTPMail", "SA-Smtp Mail")
> theComponents(17) = Array("SmtpMail.SmtpMail.1", "SMTP")
> theComponents(18) = Array("VSEmail.SMTPSendMail", "VSEmail")
>
> Function IsObjInstalled(strClassString)
> On Error Resume Next
>
> '// Initialize default values
>
> IsObjInstalled = False
> Err = 0
>
> '// Testing code
>
> Dim xTestObj
> Set xTestObj = Server.CreateObject(strClassString)
>
> If 0 = Err Then IsObjInstalled = True
>
> '// Cleanup
>
> Set xTestObj = Nothing
> Err = 0
>
> On Error Goto 0
> End Function
>
> Response.Write "<html>" & vbNewLine & _
> vbNewLine & _
> "<head>" & vbNewLine & _
> " <title>E-mail Component Test</title>" &
> vbNewLine & _
> "</head>" & vbNewLine & _
> vbNewLine & _
> "<body bgColor=doublequotewhitedoublequote
> text=doublequotemidnightbluedoublequote
link=doublequotedarkbluedoublequote
> aLink=doublequotereddoublequote vLink=doublequotereddoublequote>" &
> vbNewLine & _
> "<font face=doublequoteVerdana, Arial,
> Helveticadoublequote>" & vbNewLine & _
> "<table border=doublequote0doublequote
> cellspacing=doublequote0doublequote cellpadding=doublequote0doublequote
> align=doublequotecenterdoublequote>" & vbNewLine & _
> " <tr valign=doublequotetopdoublequote>" &
> vbNewLine & _
> " <td
> bgcolor=doublequoteblackdoublequote>" & vbNewLine & _
> " <table
> border=doublequote0doublequote cellspacing=doublequote1doublequote
> cellpadding=doublequote4doublequote>" & vbNewLine & _
> " <tr
> valign=doublequotetopdoublequote>" & vbNewLine & _
> " <td
> bgcolor=doublequotemidnightbluedoublequote colspan=doublequote2doublequote
> align=doublequotecenterdoublequote><font size=doublequote2doublequote
> color=doublequotemintcreamdoublequote><b>E-mail Component
> Test</b></font></td>" & vbNewLine & _
> " </tr>" & vbNewLine
>
> Dim i
>
> For i = 0 To UBound(theComponents)
> Response.Write " <tr>" & vbNewLine & _
> " <td
> bgColor=doublequote#9FAFDFdoublequote
> align=doublequoterightdoublequote><font
> size=doublequote2doublequote><strong>" & theComponents(i)(1) &
> ": </strong></font></td>" & vbNewLine & _
> " <td
> bgColor=doublequote#9FAFDFdoublequote
> align=doublequotecenterdoublequote><font size=doublequote2doublequote>"
>
> If Not IsObjInstalled(theComponents(i)(0)) Then
> Response.Write("not installed")
> Else
> Response.Write("<strong>installed!</strong>")
> End If
>
> Response.Write "</font></td>" & vbNewLine & _
> " </tr>" & vbNewline
> Next
>
>
> Response.Write " </table>" & vbNewLine & _
> " </td>" & vbNewLine & _
> " </tr>" & vbNewLine & _
> "</table>" & vbNewLine & _
> "</font>" & vbNewLine & _
> "</body>" & vbNewLine & _
> vbNewLine & _
> "</html>" & vbNewLine
> %>
>
>
>
> Sorry for the messy code, it was copy and pasted from a website. For the
> original, see
>
http://www.aspit.net/code/miscellaneous/check_installed_email_components.asp
>
> Once you know which component you will use, you will want to create the
> additional code needed to add a new record to the database. In the
following
> example, assume that there is a form on the page with two fields, "Name"
and
> "Email":
>
> <% @ Language="VBScript" %>
> <% Option Explicit %>
> <%
> 'Check if form has been submitted
> If Request("Submit") <> "" Then
>
> 'Pass form values into variables
> Dim varFormName
> Dim varFormEmail
> 'Retrieve form values
> varFormName = CStr(Request("Name"))
> varFormEmail = CStr(Request("Email"))
> 'Trim extra spaces
> varFormName = Trim(varFormName)
> varFormEmail = Trim(varFormEmail)
>
> 'start INSERT command
> 'You can either use a hand-coded INSERT here,
> 'or use the built in Macromedia INSERT behavior.
> 'If using the built in behavior, ensure that you
> 'enter the following code BEFORE the redirect line
> 'but AFTER the INSERT command executes.
> 'end INSERT command
>
> 'start email script
> 'NOTE: the code that goes here is dependant on which component you
> use
> 'simply pass varFormName and varFormEmail into the email message
> 'end email script
>
> 'If you used the built in Macromedia INSERT behavior,
> 'then place the Response.Redirect line here. Otherwise
> 'you can place your own Response.Redirect here.
> Response.Redirect("redirectpage.asp")
>
> End If 'If Request("Submit") <> "" Then
> %>
>
> Just a simple way to do it - it may/may not work for you, but I use it
> without any problems at all.
>
> Mark Bieganek
>
> -----Original Message-----
> From: Magda Karoni [mailto:
mkaroni@...]
> Sent: Tuesday, October 12, 2004 3:02 AM
> To:
BKWeb_UltraDev@yahoogroups.com
> Subject: [BKWeb_UltraDev] email and database
>
>
> Hi Everybody
>
> does anybody knows of a code that will allow the form to send an email and
> at the same time write the info on a database or a table.
>
>
> Thanks
>
> Magda
>
> [Non-text portions of this message have been removed]
>
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
>
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
Having problems with message search?
Fill out this form to ensure your group is one of the first to be migrated to the new message search system.
Offline 
Send Email