Oversætte til JMail ?? - JMail fra Struer.net
Hej AlleJeg har fundet følgende fil, men der anvendes bare ikke JMail (fra Struer.net), som er det postsystem min server bruger.
Er der nogen der kan oversætte følgende script/tekst til JMail ??? - Jeg kan altså ikke !!
Så vidt jeg ved - foregår det meste i bunden af dokumentet, men jeg vedlægger lige det hele.
På forhånd tak - MVH
Peter
<%@ LANGUAGE=VBSCRIPT%>
<%
Response.Buffer = True
Response.Expires = 60
Response.ExpiresAbsolute = Date() - 1
Response.AddHeader \"pragma\",\"no-cache\"
Response.AddHeader \"cache-control\",\"private\"
Response.CacheControl = \"no-cache\"
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<html>
<head>
<link href=\"../../style.css\" rel=\"STYLESHEET\" TYPE=\"text/css\">
</head>
<!--#include file=\"../../lib/connection.asp\"-->
<!--#include file=\"../../lib/odbc.asp\"-->
<body topmargin=\"20\" leftmargin=\"20\" marginheight=\"20\" marginwidth=\"20\">
<h1>Bekræftelse</h1>
<%
\'Declare some variables.
Dim mySQL, objRS, objRSCount, objConn, medlem, fk, vp
If Request.Form(\"medlem\") = \"on\" Then
medlem = \"TRUE\"
Else
medlem = \"FALSE\"
End If
If Request.Form(\"ttype\") = \"fk\" Then
fk = \"TRUE\"
vp = \"FALSE\"
Else
fk = \"FALSE\"
vp = \"TRUE\"
End If
If Day(Now) < 13 Then
Dato = \"#\" & month(now) & \"-\" & day(now) & \"-\" & year(now) & \"#\"
Else
Dato = \"#\" & day(now) & \"-\" & month(now) & \"-\" & year(now) & \"#\"
End If
\'Create a SQL command
If Request.QueryString(\"id\") = \"\" Then
mySQL = \"INSERT INTO tblTilmelding (Fornavn, Efternavn, Medlem, Adresse1, Adresse2, Postnr, Byen, Telefon, telefonarbejde, Studie, Email, dato, arrangementId) VALUES \" &_
\"(\"&ODBCStrEncode(Request.Form(\"fornavn\"))&\",\'\"&Request.Form(\"efternavn\")&\"\',\'\"&Request.Form(\"medlem\")&\"\',\'\"&Request.Form(\"adresse1\")&\"\',\'\"&Request.Form(\"adresse2\")&\"\',\'\"&Request.Form(\"postnr\")&\"\',\'\"&Request.Form(\"byen\")&\"\',\'\"&Request.Form(\"telefon\")&\"\',\'\"&Request.Form(\"telefonarbejde\")&\"\',\'\"&Request.Form(\"studie\")&\"\',\'\"&Request.Form(\"email\")&\"\',\"&Dato&\",\"&Request.Form(\"id\")&\")\"
session(\"f1\") = Request.Form(\"fornavn\")
session(\"f2\") = Request.Form(\"efternavn\")
session(\"f4\") = Request.Form(\"adresse1\")
session(\"f5\") = Request.Form(\"adresse2\")
session(\"f6\") = Request.Form(\"postnr\")
session(\"f7\") = Request.Form(\"byen\")
session(\"f8\") = Request.Form(\"telefon\")
session(\"f9\") = Request.Form(\"telefonarbejde\")
session(\"f10\") = Request.Form(\"studie\")
session(\"f11\") = Request.Form(\"email\")
End If
\'Create a connection object.
Set objConn = Server.CreateObject(\"ADODB.Connection\")
With objConn
\'Open the connection object.
.Open ConnectionString
\'Update a recordset.
Set objRS = .Execute(mySQL)
\'på venteliste eller afventer plads!!!
mySQL = \"SELECT maxAntal,arrangement FROM tblArrangement WHERE ID = \" & Request.Form(\"id\")
Set objRS = .Execute(mySQL)
maxAntal = objRS(\"maxAntal\")
arrangement = objRS(\"arrangement\")
mySQL = \"SELECT COUNT(*) AS antal FROM tblTilmelding WHERE arrangementID = \" & Request.Form(\"id\")
Set objRS = .Execute(mySQL)
antal = objRS(\"antal\")
.Close
End With
If antal < maxAntal Then
set msg = Server.CreateOBject( \"JMail.Message\" )
msg.Logging = true
msg.silent = true
msg.From = \"webmaster@ww.dk\"
msg.FromName = \"ww Webmaster\"
msg.AddRecipient Request.Form(\"email\"), Request.Form(\"navn\")
msg.Subject = \"Bekræftelses-mail til \" & arrangement
msg.Body = \"Tak for din tilmelding til xxxs aktiviteter\" & vbCrlf & vbCrlf &_
\"God fornøjelse!\" & vbCrlf & vbCrlf &_
\"...\" & vbCrlf &_
\"...@...dk\" & vbCrlf
txt = \"Tak for din tilmelding til xxxs aktiviteter<br><br>\" &_
\"God fornøjelse!<br><br>\"&_
\"...<br>\"&_
\"...@...dk<br><br>\"
if not msg.Send(\"smtp.netsite.dk\" ) then
\'Response.write \"<pre>\" & msg.log & \"</pre>\"
else
\'Response.Write \"Der er desværre for mange tilmeldinger til dette arrangement... du står på ventelisten!\"
end if
Else
set msg = Server.CreateOBject( \"JMail.Message\" )
msg.Logging = true
msg.silent = true
msg.From = \"webmaster@ww.dk\"
msg.FromName = \"ww Webmaster\"
msg.AddRecipient Request.Form(\"email\"), Request.Form(\"navn\")
msg.Subject = \"Venteliste-mail til \"& arrangement
msg.Body = \"Tak for din tilmelding til WWs aktiviteter\" & vbCrlf & vbCrlf &_
\"Desværre er arrangementet overbooket. Vi kan derfor ikke umiddelbart tilbyde dig en plads. Derimod vil vi sætte dig på venteliste, således at du kommer i betragtning, hvis vi modtager nogen afbud. \" & vbCrlf &vbCrlf &_
\"Hvis der skulle blive en ledig plads vil du modtage en e-mail fra os.\" & vbCrlf & vbCrlf &_
\"\" & vbCrlf &_
\"ww folket \" & vbCrlf &_
\"webmaster@ww.dk\" & vbCrlf
txt = \"Tak for din tilmelding til WWs aktiviteter<br><br>\" &_
\"Desværre er arrangementet overbooket. Vi kan derfor ikke umiddelbart tilbyde dig en plads. Derimod vil vi sætte dig på venteliste, således at du kommer i betragtning, hvis vi modtager nogen afbud. <br><br>\" &_
\"Hvis der skulle blive en ledig plads vil du modtage en e-mail fra os.<br><br>\" &_
\"<br>\" &_
\"ww folket<br>\" &_
\"webmaster@ww.dk<br>\"
if not msg.Send(\"smtp.netsite.dk\" ) then
\'Response.write \"<pre>\" & msg.log & \"</pre>\"
else
\'Response.Write \"Der er desværre for mange tilmeldinger til dette arrangement... du står på ventelisten!\"
end if
End If
\' Response.Write \"Pladser: \" & maxAntal
\' Response.Write \"<br>Antal: \" & antal
%><br>
<%=txt%>
<br><br>
<a href=\"java script:history.go(-2)\">Tilbage</a>
</body>
</html>
