Medlem
|
|
Reg.datum: Sep 2004
Inlägg: 71
|
|
Medlem
Reg.datum: Sep 2004
Inlägg: 71
|
Jag har en kontakta mig sida där jag vill kunna byta mailadress till mig via ett rs. Har gjort denna enkla kod.
Mailet verkar gå iväg men det kommer inte fram till mig
<!--#include file="setting1.asp" -->
<%
dim din_mail, epost, namn
din_mail = rs=("din_mail")'Dit mailaddress kommer att skickas. Det är här jag hämtar från databasen. Jag har ett rs som heter din_mail.
epost = request.form("epost")
namn = request.form("namn")
Set objCDOMail = Server.CreateObject("CDO.Message")
objCDOMail.From = Request.Form("epost")
objCDOMail.To = din_mail
objCDOMail.Subject = "Beställning"
objCDOMail.TextBody = Request.Form("namn")
objCDOMail.Send
Set objCDOMail = Nothing
Response.Redirect("index.asp")
Jag gör detta åt en bekant som vill ha det som en admin och att han ska kunna ändra sin mailadress själv om han eventuellt skulle byta denna.
|