Skicka mail?

5 svar · 339 visningar · startad av webbSAJTEN 16 okt. 2004

webbSAJTENMedlem sedan jan. 2002992 inlägg

Frågan16 okt. 2004 17:23#1

Tjena!
Jag skulle vilja göra så att jag får ett mail varje gång någon har skrivit i min gästbok.
Loopia är webbhotellet och det har stödj för jmail..

Hur ska jag göra? Finns de något färdigt script man kan kika på?

SannyWMedlem sedan jan. 2003438 inlägg

16 okt. 2004 17:51#2

Så här borde det kunna se ut:

'Plockar bort ev html kod som de skrivit in
namn = server.HTMLEncode(Request.Form("namn"))
epost = server.HTMLEncode(Request.Form("epost"))
text = server.HTMLEncode(Request.Form("kommentar"))

'------------------------------------
'skickar iväg ett mail till mig själv med gästboksinlägget
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "info@jimmygronwall.se"
jmail.AddRecipientCC "" - fyller i för kopior
jmail.AddRecipientBCC ""

jmail.From = "Gästboken"
jmail.Subject = "Nytt inlägg"
jmail.Body = "Meddelande via hemsidan skickades " & Now & ""
jmail.appendHTML ""
jmail.appendHTML "Meddelande från jimmygronwall.se "
jmail.appendHTML "------------------------------------------ "
jmail.appendHTML "Skickades: " & Now & " "
jmail.appendHTML "Namn: " & Namn & " "
jmail.appendHTML "------------------------------------------ "
jmail.appendHTML "" & text & " "
jmail.appendHTML ""
jmail.Send ("smtp.jimmygronwall.se")

'slutar här

webbSAJTENMedlem sedan jan. 2002992 inlägg

16 okt. 2004 17:58#3

Liten fråga nu bara..
Skulle de räcka med att jag klistrade in den där koden på sidan där den sparar mina gästboksinlägg?
Om jag ändrar mailadress och sånt..

SannyWMedlem sedan jan. 2003438 inlägg

16 okt. 2004 19:00#4

Yepp

Du kan klistra in den på samma sidan som du hämtar enligt följande och slänger in det i databasen:

'Plockar bort ev html kod som de skrivit in
namn = server.HTMLEncode(Request.Form("namn"))
epost = server.HTMLEncode(Request.Form("epost"))
text = server.HTMLEncode(Request.Form("kommentar"))

'------------------------------------
'skickar iväg ett mail till mig själv med gästboksinlägget
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "info@jimmygronwall.se"
jmail.AddRecipientCC "" - fyller i för kopior
jmail.AddRecipientBCC ""

jmail.From = "Gästboken"
jmail.Subject = "Nytt inlägg"
jmail.Body = "Meddelande via hemsidan skickades " & Now & ""
jmail.appendHTML "<font face=verdana size=1>"
jmail.appendHTML "<b>Meddelande från jimmygronwall.se</b><br>"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "<b>Skickades:</b> " & Now & "<br>"
jmail.appendHTML "<b>Namn: </b> " & Namn & "<br>"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "" & text & "<br>"
jmail.appendHTML "</font>"
jmail.Send ("smtp.jimmygronwall.se")

'slutar här

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.ADDNEW

	RecSet("NAMN") = namn
	RecSet("EPOST") = epost
	RecSet("HEMSIDA") = hemsida
	RecSet("kommentar") = text
	RecSet("DATUM") = NOW()
	
	RecSet.UPDATE

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "gastbok.asp"

%>

webbSAJTENMedlem sedan jan. 2002992 inlägg

16 okt. 2004 19:48#5

Jag får ett mail med jag får ändå felmess:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/gastbok_spara.asp, line 46

J.N.Medlem sedan apr. 20031 660 inlägg

18 okt. 2004 13:02#6

HEJ!

Men, jag gissar att du inte får någon post i databasen?
Eller kanske, eftersom du inte skrivit vilken rad som är 46, gissar jag på RecSet.Close.
Skapar du ett rs när du använder en sådan uppdatering?

Eftersom jag aldrig gjort så, kan jag inte svara på det, men jag skulle inte tro det.

Skulle felet inte ligga där, tror jag du endast ska tolka SannyW kod som exempel i databasbiten.