INDSÆTTE I DATABASE OG SENDE JMAIL SAMTIDIG
Jeg vil gerne indsætte i en database og tilligemed sende en Jmail!Jeg har en form, hvor jeg indtaster navn, email osv osv. Min action="indsaet.asp"
indsætter navn og email i en lille database. Det virker!
Jeg har samme form, som sender en Jmail. Her er min action="send_test.asp" - Og det virker!
Jeg kan altså fra min form vælge at sætte action til indsaet.asp eller til send_test.asp.
Jeg vil gerne ha' eet asp-dokument, som klarer begge dele! Jeg har prøvet forskelligt, men
det virker ikke!
Jeg får bl.a. denne besked:
ADODB.Command error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Min indsaet.asp ser således ud:
<!-- #include file="forbindelse.asp" -->
<!--#include file="variabler.asp" -->
<%
set Command = server.CreateObject("ADODB.Command")
Command.ActiveConnection = ConnectionString
Command.CommandText ="Medlemmer"
Command.CommandType = adCmdTable
set recordSet = Command.Execute
Command.CommandText = "insert into Medlemmer(Navn,Email) values ('"& Request.Form("Navn") &"','"& Request.Form("Email")&"')"
Command.CommandType = adCmdText
Command.Execute
forbindelse.Close()
Set forbindelse = Nothing
%>
Det virker som sagt.
Min send_test.asp ser således ud:
<%@LANGUAGE = VBSCRIPT%>
<html>
<body>
<%
' Get the form data
name = Request.form("Navn")
senderEmail = Request.form("Email")
subject = "Kontakt " & Request.form("subject")
recipient = Request.form("recipient")
body = "Hjemmesiden har den " & date & " klokken " & time & " afsendt følgende mail: " & vbCrLf & vbCrLf & "Navn: " & Request.form("Navn") & vbCrLf & "Firma: " & Request.form("Firma") & vbCrLf & "Gade/nr: " & Request.form("Gade") & vbCrLf & "Postnr: " & Request.form("Postnr") & vbCrLf & "Email: " & Request.form("Email") & vbCrLf & vbCrLf & "Beskeden er: " & vbCrLf & vbCrLf & Request.form("Besked")
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true
' Enter the sender data
msg.From = senderEmail
msg.FromName = name
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient
' The subject of the message
msg.Subject = subject
' And the body
msg.body = body
' Now send the message, using the indicated mailserver
if not msg.Send("mail.domaene.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "<html><head><title>TAK FOR HENVENDELSEN</title><Link REL='StyleSheet' HREF='style.css' TYPE='text/css'></head><body bgcolor='#87A3A5'><div align='center'><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td></td><td><div align='center'><h6 class='tekst'><br><br><br><br><br>KÆRE <i>" & Request.form("Navn") & "</i><br><br> VI TAKKER FOR DIN HENVENDELSE<br><br> - OG HAR NOTERET FØLGENDE:<br><br>NAVN: <i>" & Request.form("Navn") & "</i><BR> ADRESSE: <i>"& Request.form("Gade") & "</i> <BR>POSTNR: <i>"& Request.form("Postnr") & "</i><BR>EMAIL: <i>"& Request.form("Email") & "</i><BR><BR>VEND SNAREST TILBAGE TIL VORES HJEMMESIDE<BR>SOM OPDATERES SÅ SNART DER ER NYT<BR><BR></h6></div><br><br><br><br><br><div align='center'><img src='billeder/LOGO.jpg' width='151' height='38'></div></td><td></td></tr><tr><td></td><td></td><td></td></tr></table></div></body></html>"
end if
' And we're done! the message has been sent.
%>
</body>
</html>
- Og det virker også.
Hvordan kan jeg sætte det sammen??
Er der nogen der kan hjælpe??
vh
frida
