Variabel fra en ASP-side til en anden
Jeg har lavet en tilmeldingssystem, den virker fint, men jeg vil gerne have sendt en e-mail til vedkommende når man tilmelder sig:ASP-filen med e-mail systemet er som her:
<%
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "xxx@xxxx.dk"
msg.FromName = "xxx"
msg.AddRecipient strEmail
msg.Subject = "Tilmelding til xxxx informationsmøde"
msg.Body = "tak for din tilmeldelse osv osv."
if not msg.Send("mail.xxx.dk") then
Response.write msg.log
else
Response.Redirect("tak_mail.html")
end if
%>
...det virker fint hvis jeg sætter en e-mail-adresse ind i stedet for variablen "strMail", den henter jeg fra opdateringssiden til databasen:
<%
Method= Request.QueryString("method")
Select Case Method
Case "indsaet"
strSted = Request.Form("sted")
strNavn_1 = Trim(Request.Form("navn_1"))
strEmail = Trim(Request.Form("email"))
strAdresse = Request.Form("adresse")
strPostnr = Trim(Request.Form("postnr"))
strTown = Trim(Request.Form("town"))
strMedlemnr = Trim(Request.Form("medlemnr"))
strOrganisation = Request.Form("organisation")
dim Connection
function OpenConnection( DBPath )
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
end function
OpenConnection("d:/web/xxxxx.dk/database/tilmelding.mdb")
SQL = "Insert Into personer (sted, navn_1, email, adresse, postnr, town, organisation, medlemnr) Values('"&strSted&"','"&strNavn_1&"' , '"&strEmail&"' , '"&strAdresse&"' , '"&strPostnr&"' , '"&strTown&"' , '"&strOrganisation&"' , '"&strMedlemnr&"')"
Connection.Execute(SQL)
Connection.close
Set Connection=nothing
IF strEmail <>"" then
Response.redirect "mail.asp"
Else
Response.redirect "tak.html"
End If
End Select
%>
...er den nogen der kan gennemskue hvor jeg mister variablen ???
