hjælp ønskes til opsætning af aspmail
Jeg har fået lavet en website til udlejning af sommerhuse. Mit problem er så at nå en bruger opretter et sommerhus skal den sende en email til den email adresse der er indtastet under tilmelding. Det hele var lavet med mail komponet Jmail, men har fundet ud at at det understøtter den ikke ( se server opsætning http://ferieguide.com/ferie/server.asp ). Jeg har fået lavet at når de ændre i deres profil sender den en email til mig med bruger informationer på den bruger der har ændret. Jeg har så prøvet at lave om så de også modtager en email med brugernavn og password når de opretter, men kan ikke få den til at sende. Lige nu får jeg denne fejl:Dit sommerhus er nu oprettet, og venter på at blive godkendt at en administrator.
Der er sendt en mail til 6x107202@tiscali.dk med de nødvendige login oplysninger.Mailen blev ikke sendt. Fejl: At least one Recipient, CC or BCC must be entered
jeg har også fået en 503, men det er vist kommet over.
Jeg håber meget at der er en der kan hjælpe, da jeg meget gerne vil igang mid mit design til siden. Men nu skal jeg lige have systemet til at virke......
Her er koden til opret.
<!-- #include file="top.asp" -->
<table width="750" border="0" style="border: solid 1px #000000; height: 500px;">
<tr>
<td width="30%">.Menu<br><!-- #include file="menu.asp" --></td>
<td wdith="70%">
<table width="100%" cellpadding=0 cellspacing=0 border=0>
<tr>
<td colspan="2">
<%
Fornavn = Request.Form("Fornavn")
Efternavn = Request.Form("Efternavn")
Adresse = Request.Form("Adresse")
Post = Request.Form("Post")
Bynavn = Request.Form("Bynavn")
Tlf = Request.Form("Tlf")
Email = Request.Form("Email")
Password = request.form("Password")
Passwordconfirm = Request.Form("Passwordconfirm")
Omraade = Request.Form("Omraade")
Amt = Request.Form("Amt")
Antal = Request.Form("Antal")
Opfort = Request.Form("Opfort")
Grundareal = Request.Form("Grundareal")
Storelse = Request.Form("Storelse")
Soverum = request.form("Soverum")
Strand = Request.Form("Strand")
Indkob = Request.Form("Indkob")
Beskrivelse = Request.Form("beskrivelse")
Parabol = Request.Form("parabol")
Barnestol = Request.Form("barnestol")
Bruser = Request.Form("bruser")
Pool = Request.Form("Pool")
Carport = Request.Form("carport")
Stereo = Request.Form("stereo")
Elkedel = Request.Form("Elkedel")
Sauna = Request.Form("sauna")
El = Request.Form("el")
Cykler = Request.Form("cykler")
Tv = Request.Form("tv")
Emhette = Request.Form("emhette")
Solarium = Request.Form("solarium")
Husdyr = Request.Form("husdyr")
Grill = Request.Form("grill")
Video = Request.Form("video")
Fryser = Request.Form("fryser")
Spabad = Request.Form("spabad")
Vaskemaskine = Request.Form("vaskemaskine")
Havestole = Request.Form("havestole")
Kaffemaskine = Request.Form("kaffemaskine")
Stovsuger = Request.Form("stovsuger")
Terrasse = Request.Form("terrasse")
Komfur = Request.form("KOmfur")
Torretumbler = Request.Form("torretumbler")
Koleskab = Request.Form("Koleskab")
Braendeovn = Request.Form("braendeovn")
Mikroovn = Request.Form("mikroovn")
Opvask = Request.Form("opvask")
EngPriser = request.form("EngPriser")
EngBeskrivelse = request.form("EngBeskrivelse")
Priser = request.form("Priser")
if Omraade = "" then
Omraade = "Ikke angivet"
end if
if Opfort = "" then
Opfort = "Ikke angivet"
end if
if Grundareal = "" then
Grundareal = "Ikke angivet"
end if
if Storelse = "" then
Storelse = "Ikke angivet"
end if
if Soverum = "" then
Soverum = "Ikke angivet"
end if
if Strand = "" then
Strand = "Ikke angivet"
end if
if Indkob = "" then
Indkob = "Ikke angivet"
end if
if Beskrivelse = "" then
Beskrivelse = "Ikke angivet"
end if
if engBeskrivelse = "" then
engBeskrivelse = "None"
end if
if engprsier = "" then
engpriser = "None"
end if
'checkboxe
if Parabol = "" then
Parabol = " "
end if
if Barnestol = "" then
Barnestol = " "
end if
if Bruser = "" then
Bruser = " "
end if
if Pool = "" then
Pool = " "
end if
if Carport = "" then
Carport = " "
end if
if Stereo = "" then
Stereo = " "
end if
if Elkedel = "" then
Elkedel = " "
end if
if Sauna = "" then
Sauna = " "
end if
if El = "" then
El = " "
end if
if Cykler = "" then
Cykler = " "
end if
if Tv = "" then
Tv = " "
end if
if Emhette = "" then
Emhette = " "
end if
if Solarium = "" then
Solarium = " "
end if
if Husdyr = "" then
Husdyr = " "
end if
if Grill = "" then
Grill = " "
end if
if Video = "" then
Video = " "
end if
if Fryser = "" then
Fryser = " "
end if
if Spabad = "" then
Spabad = " "
end if
if Vaskemaskine = "" then
Vaskemaskine = " "
end if
if Havestole = "" then
Havestole = " "
end if
if Kaffemaskine = "" then
Kaffemaskine = " "
end if
if Stovsuger = "" then
Stovsuger = " "
end if
if Terrasse = "" then
Terrasse = " "
end if
if Torretumbler = "" then
Torretumbler = " "
end if
if Koleskab = "" then
Koleskab = " "
end if
if Braendeovn = "" then
Braendeovn = " "
end if
if Mikroovn = "" then
Mikroovn = " "
end if
if Opvask = "" then
Opvask = " "
end if
if priser = "" then
Priser = "Ikke angivet"
end if
if Komfur = "" then
Komfur = " "
end if
if tlf = "" then
tlf = "Ikke angivet"
end if
if Fornavn = "" then
response.write "Fornavn <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Efternavn = "" then
response.write "Efternavn <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Adresse = "" then
response.write "Adressefeltet <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Post = "" then
response.write "Post nummer <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Bynavn = "" then
response.write "Bynavn <u>skal</u> udfyldes!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif Email = "" then
response.write "Email <u>skal</u> udfyldes, da informationer om oprettelse bliver sendt til denne adresse!<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif password = "" then
response.write "Kodeord <u>skal</u> udfyldes<br><a href='java script:self.history.go(-1)'>Gå tilbage og udfyld <u>hele</u> formen</a>"
elseif password <> passwordconfirm then
response.write "Kodeord og Bekræft kodeord er ikke ens. <br><a href='java script:self.history.go(-1)'>Gå tilbage og prøv igen</a>"
else
%>
<!-- #include file="sqlconn.asp" -->
<%
Dim objRS
Call OpenDataBase("sommerhus.mdb")
Set objRS = objConn.Execute("INSERT INTO Sommerhus (Fornavn, Efternavn, Adresse, Postnr, Bynavn, Tlf, Email, Kodeord, Omraade, Amt, Antal, Opfort, Grundareal, Storelse, Soverum, Strand, Indkob, Beskrivelse, Parabol, Barnestol, Bruser, pool, Carport, Stereo, Elkedel, Sauna, El, Cykler, Tv, Emhette, Solarium, Husdyr, Grill, Video, Fryser, Spabad, Vaskemaskine, Havestole, Kaffemaskine, Stovsuger, Terrasse, Komfur, Torretumbler, Koleskab, Braendeovn, Mikroovn, Opvask, Priser, engpriser, engbeskrivelse) values('" & Fornavn & "','" & Efternavn & "','" & Adresse & "','" & post &"','" & Bynavn & "','" & Tlf & "','" & Email & "','" & Password & "','" & Omraade & "','" & Amt & "','" & Antal & "','" & Opfort & "','" & Grundareal & "','" & Storelse & "','" & Soverum & "','" & Strand & "','" & Indkob & "','" & Beskrivelse & "','" & Parabol & "','" & Barnestol & "','" & Bruser & "','" & Pool & "','" & Carport & "','" & Stereo & "','" & Elkedel & "','" & Sauna & "','" & El & "','" & Cykler & "','" & Tv & "','" & Emhette & "','" & Solarium & "','" & Husdyr & "','" & Grill & "','" & Video & "','" & Fryser & "','" & Spabad & "','" & Vaskemaskine & "','" & Havestole & "','" & Kaffemaskine & "','" & Stovsuger & "','" & Terrasse & "','" & Komfur & "','" & Torretumbler & "','" & Koleskab & "','" & Braendeovn & "','" & Mikroovn & "','" & Opvask & "','" & Priser & "','" & engPriser & "','" & engbeskrivelse & "')")
response.write "Dit sommerhus er nu oprettet, og venter på at blive godkendt at en administrator.<br><br>Der er sendt en mail til " & Email & " med de nødvendige login oplysninger."
'Set JMail = Server.CreateObject("JMail.SMTPMail")
'JMail.Sender = "afsender@mail.dk"
'JMail.SenderName = "afsender@mail.dk"
'JMail.Subject = "Ny bruger på dinside.dk"
'strBody = "Velkommen til aspsoftware.dk" & vbCrLf & vbCrLf
'strBody = strBody & "Login oplysninger:" & vbCrLf
'strBody = strBody & "Fornavn: " & Fornavn & vbCrLf
'strBody = strBody & "Kodeord: " & password & vbCrLf & vbCrLf
'strBody = strBody & "Vi takker for din tilmelding" & vbCrLf & vbCrLf
'strBody = strBody & "Med venlig hilsen" & vbCrLf & vbCrLf
'strBody = strBody & " dinside.dk"
'JMail.Body = strBody
'JMail.AddRecipient email
'intRetval = JMail.Execute
'set Jmail = nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "ferieguide.com"
Mailer.FromAddress= "webmaster@ferieguide.com"
Mailer.RemoteHost = "mail.micropage.dk"
Mailer.AddRecipient "&fornavn", "&email"
strBody = "Velkommen til ferieguide.com" & vbCrLf & vbCrLf
strBody = strBody & "Login oplysninger:" & vbCrLf
strBody = strBody & "Fornavn: " & Fornavn & vbCrLf
strBody = strBody & "Kodeord: " & password & vbCrLf & vbCrLf
strBody = strBody & "Vi takker for din tilmelding" & vbCrLf & vbCrLf
strBody = strBody & "Med venlig hilsen" & vbCrLf & vbCrLf
strBody = strBody & " ferieguide.com"
Mailer.Subject = "Ny bruger på ferieguide.com"
Mailer.BodyText = strBody
if Mailer.SendMail then
response.write "Opdateringen blev gennemført uden fejl<br>"
response.write "<a href='default.asp'>Klik her for at vende tilbage til forsiden</a>"
else
Response.Write "Mailen blev ikke sendt. Fejl: " & Mailer.Response
end if
Call CloseDataBase
end if
%>
</td>
</tr>
<!-- #include file="bund.asp" -->
