skicka olika personer beroende på vilken sida man befinner sig

2 svar · 225 visningar · startad av MizzK 11 dec. 2003

MizzKMedlem sedan juni 2003410 inlägg

Frågan11 dec. 2003 23:33#1

håller på att göra ett kontaktformulär och vill att det "skicka.asp" skall känna av vilken sidan formuläret är på och sedan skicka till rätt mail adress och min fråga är hur jag gör detta?

gjorde så här men det fungerade inte

Set objMail = Server.CreateObject("JMail.Message")
objMail.From = "info@foretag.se"
objMail.FromName = "Kontakt forumuläret"
	If Request.QueryString("admin") = "" Or Request.QueryString("admin") = "0" Then
		objMail.AddRecipient "mail1@foretag.se"
	ElseIf Request.QueryString("admin") = "1" Then            	
		objMail.AddRecipient "mail2@foretag.se"
	ElseIf Request.QueryString("admin") = "2" Then
		objMail.AddRecipient "mail3@foretag.se"
	End If
objMail.Subject ="Kontakta mig"

en ex adress till en av sidorna som formuläret är includerat i är: kontakt.asp?avd=1&admin=2

dvs den skall känna av om det är inne på admin 1, 2 osv och skicka därefter till den mottageren

ngn?

LR^evil.sidMedlem sedan maj 2002560 inlägg

12 dec. 2003 00:06#2

Vart skickas mailet och vad säger querystringen när koden exekveras?

MizzKMedlem sedan juni 2003410 inlägg

12 dec. 2003 00:19#3

hela scriptet

<%
If Request.Form("namn") = "" OR Request.Form("epost") = "" OR Request.Form("meddelande") = "" Then
  Response.Redirect("../../../kontakt.asp?avd=1&admin=2")
End If

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
strSQL = "INSERT INTO pers_meddelanden (namn, foretag, tele, epost, rubrik, meddelande) VALUES ('" & Replace(Request.Form("namn"), "'", "''") & "', '" & Replace(Request.Form("foretag"), "'", "''") & "', '" & Replace(Request.Form("tele"), "'", "''")& "', '" & Replace(Request.Form("epost"), "'", "''")& "', '" & Replace(Request.Form("rubrik"), "'", "''") & "', '" & Replace(Request.Form("meddelande"), "'", "''") & "')"
objConn.Execute(strSQL)
objConn.Close : Set objConn = Nothing

Set objMail = Server.CreateObject("JMail.Message")
objMail.From = "info@foretag.se"
objMail.FromName = "Kontakt forumuläret"
	If Request.QueryString("admin") = "" Or Request.QueryString("admin") = "0" Then
		objMail.AddRecipient "mail1@foretag.se"
	ElseIf Request.QueryString("admin") = "1" Then            	
		objMail.AddRecipient "mail2@foretag.se"
	ElseIf Request.QueryString("admin") = "2" Then
		objMail.AddRecipient "mail3@foretag.se"
	End If
objMail.Subject ="Kontakta mig"

objMail.AppendHTML "<font face=verdana size=1> <b> Meddelande via hemsidan </b> <br>------------------------------------------<br><b>Skickades:</b>  " & Now & "<br> <b>Namn: </b> " & Request.Form("namn") & "<br><b>Företag: </b> "& Request.Form("foretag") &"<br><b>Telefon: </b> "& Request.Form("tele") &"<br><b>E-mail: </b> "& Request.Form("epost") & "<br><b>Ärende: </b> " & Request.Form("rubrik") &" <br>------------------------------------------<br>"& Request.Form("meddelande") &"<br></font>"

If objMail.Send("mail.server.se") Then
  Response.Write("Ditt meddelande är skickat!")
Else
  Response.Write("Något stämde inte riktigt där...")
End If

Set objMail = Nothing
%>