ASPmail min webhotel udbyder har kun ASPmail
GodaftenMin webhoteludbyder har kun ASPmail og givet mig dette script eksempel:
<html>
<head>
<title>ASPMail eksempel</title>
<head>
<body>
Meddelelsen sendes til: <% = Request(\"addressto\") %><br>
<p>
<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.dit-domæne.dk\"
Mailer.FromName = \"John Doe\"
Mailer.FromAddress = \"navn@hostnavn.dk\"
Mailer.AddRecipient Request(\"nameto\"), Request(\"addressto\")
Mailer.Subject = \"Dette er emnet i emailen\"
Mailer.BodyText = Request(\"txtmsg\")
if not Mailer.SendMail then
Response.Write \"Meddelelsen kunne ikke senes... Fejlen er: <br>\"
Response.Write Mailer.Response
else
Response.Write \"Meddelelsen er sendt!\"
end if
%>
</body>
</html>
****************************
Mit problem er at jeg har en downloaded sourcekode som bruger Jmail. Hvem kan hjælpe med at ændre dette script til ASPmail?
På forhånd tak
Her kommer scriptet:
<!--#include virtual=\"/dev/_db.asp\"-->
<!--#include virtual=\"/dev/_header.asp\"-->
<%
bDontCount = False
sPageTitle = \"2eNetWorX - Register\"
bAdminOnly = False
lSubjectID = 0
sTitleBar = \"/dev :: <a href=\"\"/dev/index.asp\"\">home</a> :: register\"
if request(\"comebackto\") <> \"\" then
sReferer = request(\"comebackto\")
sGoBackTo = \"?\" & request.querystring
end if
sub SendMail(sTo, sSubject, sBody)
\'TO DO: Change the mail configuration
sMailServer = \"mail.chameleon.dk\"
sMailSender = \"admin@chameleon.dk\"
sMailSenderName = \"Chameleon\"
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = sMailServer
JMail.Sender = sMailSender
JMail.Sendername = sMailSenderName
JMail.Subject = sSubject
JMail.AddRecipient sTo
JMail.Body = sBody
JMail.Execute
end sub
%>
<br>
<p class=\"smallaction\">Register Yourself</p>
<p class=\"smallertext\">
<%=sErr%>
</p>
<form action=\"register.asp<%=sGoBackTo%>\" method=\"post\">
<table border=0>
<tr>
<td class=\"smallerheader\">User Name</td>
<td><input type=\"text\" class=\"tbflat\" name=\"txtUserName\" value=\"<%=sUserName%>\"></td>
<td class=\"smallertext\"></td>
</tr>
<tr>
<td class=\"smallerheader\">E-Mail</td>
<td><input type=\"text\" name=\"txtEMail\" value=\"<%=sEmail%>\" size=\"30\" class=\"tbflat\"></td>
</tr>
<tr>
<td class=\"smallerheader\">First Name</td>
<td><input type=\"text\" class=\"tbflat\" name=\"txtFirstName\" value=\"<%=sFirstName%>\"></td>
</tr>
<tr>
<td class=\"smallerheader\">Last Name</td>
<td><input type=\"text\" class=\"tbflat\" name=\"txtLastName\" value=\"<%=sLastName%>\"></td>
</tr>
<tr>
<td class=\"smallerheader\">Gender</td>
<td class=\"smallertext\">
<input type=\"radio\" name=\"optGender\" value=\"1\"<%=sGenderMale%>>Male
<input type=\"radio\" name=\"optGender\" value=\"0\"<%=sGenderFemale%>>Female
</td>
</tr>
<tr>
<td class=\"smallerheader\">Birth Date : Month</td>
<td class=\"smallertext\">
<select name=\"txtBirthMonth\" class=\"tbflat\">
<%
for iTemp = 1 to 12
if sBirthMonth = iTemp then
response.write \"<option value=\"\"\" & iTemp & \"\"\" selected>\" & arrMonths(iTemp)
else
response.write \"<option value=\"\"\" & iTemp & \"\"\">\" & arrMonths(iTemp)
end if
next
%>
</select>
</td>
</tr>
<tr>
<td class=\"smallerheader\">Birth Date : Day</td>
<td class=\"smallertext\">
<input type=\"text\" name=\"txtBirthDay\" size=\"2\" maxlength=\"2\" class=\"tbflat\" value=\"<%=sBirthDay%>\">
</td>
</tr>
<tr>
<td class=\"smallerheader\">Birth Date : Year</td>
<td class=\"smallertext\">
<input type=\"text\" name=\"txtBirthYear\" size=\"4\" maxlength=\"4\" class=\"tbflat\" value=\"<%=sBirthYear%>\">
</td>
</tr>
<tr>
<td class=\"smallerheader\">Notifications</td>
<td class=\"smallertext\"><input type=\"checkbox\" name=\"chkNotifications\" value=\"1\" <%=sNotifications%>>Notification for site updates</td>
</tr>
<tr>
<td class=\"smallerheader\">Newsletter</td>
<td class=\"smallertext\"><input type=\"checkbox\" name=\"chkNewsletter\" value=\"1\"<%=sNewsletter%>>Periodic Newsletter</td>
</tr>
<tr>
<td class=\"smallerheader\">Country</td>
<td class=\"smallertext\" align=right>
<select name=\"txtCountryCode\" class=\"tbflat\">
<%
for iTemp = 1 to 237
if sCountryCode = c(iTemp,1) then
response.write \"<option value=\"\"\" & c(iTemp,1) & \"\"\" selected>\" & c(iTemp,2)
else
response.write \"<option value=\"\"\" & c(iTemp,1) & \"\"\">\" & c(iTemp,2)
end if
next
%>
</select>
</td>
</tr>
<tr>
<td></td>
<td><input type=\"submit\" name=\"cmdSave\" value=\" Save \" class=\"cmdflat\"></td>
</tr>
</table>
</form>
<br><br>
<!--#include virtual=\"/dev/_footer.asp\"-->
<%
end sub
if request(\"cmdsave\") <> \"\" then
\'New values Submitted
sUserName = request(\"txtUserName\")
sEMail = request(\"txtEmail\")
sFirstName = request(\"txtFirstName\")
sLastName = request(\"txtLastName\")
if request(\"optGender\") = \"1\" then sGenderMale = \" checked\" else sGenderFemale = \" checked\"
sBirthMonth = request(\"txtBirthMonth\")
sBirthDay = request(\"txtBirthDay\")
sBirthYear = request(\"txtBirthYear\")
if request(\"chkNotifications\") <> \"\" then sNotifications = \" checked\"
if request(\"chkNewsletter\") <> \"\" then sNewsletter = \" checked\"
sCountryCode = request(\"txtCountryCode\")
if request.cookies(\"devUserName\") <> \"\" then
sRemember = \" checked\"
end if
OpenDB sConnUsers
sSQL = \"SELECT * FROM Users WHERE UserName = \'\" & sUserName & \"\'\"
rs.Open sSQL,,,adCmdTable
if not (rs.bof or rs.eof) then
sErr = \"User name \'\" & sUserName & \"\' already exists. Please choose a different user name.\"
bErr = True
end if
if sUserName = \"\" then
sErr = \"Please specify a user name.\"
bErr = True
end if
if len(sEmail) < 6 then
sErr = \"Please specify a correct email.\"
bErr = True
end if
if (instr(sEmail, \"@\") = 0) or (instr(sEmail,\".\")=0) then
sErr = \"Please specify a correct email.\"
bErr = True
end if
if sFirstName = \"\" then
sErr = \"Please specify your first name.\"
bErr = True
end if
if bErr then
ShowProfile sErr
else
randomize time
for iTemp = 1 to 10
iChar = 97 + (rnd * 25)
sPassword = sPassword & chr(iChar)
next
rs.AddNew
rs(\"UserName\") = sUserName
rs(\"Password\") = sPassword
rs(\"Email\") = sEmail
rs(\"FirstName\") = sFirstName
rs(\"LastName\") = sLastName
if len(sGenderMale)>0 then rs(\"GenderMale\") = true else rs(\"GenderMale\") = False
if (len(sBirthYear) > 0) and (len(sBirthMonth)>0) and (len(sBirthDay)>0) then
dBirthDate = dateserial(sBirthYear, sBirthMonth, sBirthDay)
end if
if isDate(dBirthDate) then rs(\"BirthDate\") = dBirthDate
if len(sNotifications)>0 then rs(\"subNotifications\") = True else rs(\"subNotifications\") = False
if len(sNewsletter)>0 then rs(\"subNewsletter\") = True else rs(\"subNewsletter\") = False
rs(\"CountryCode\")= sCountryCode
rs(\"CreateDate\") = Date
rs.update
sSubject = \"Your login information\"
sBody = \"This email is sent because you asked to register with 2eNetWorX/dev.\" & vbcrlf & vbcrlf
sBody = sBody & \"You may change your password after logging in by editing your profile.\" & vbcrlf & vbcrlf
sBody = sBody & \"Your user name: \" & sUserName & vbcrlf
sBody = sBody & \"Your password: \" & sPassword & vbcrlf & vbcrlf
sBody = sBody & \"Go to http://www.2enetworx.com/dev/servies/login.asp to login.\" & vbcrlf
SendMail sEmail, sSubject, sBody
%>
<br><br>
You will receive an email in a few minutes regarding your password to login.
<br><br>
You may <a href=\"login.asp\">login here.</>
<!--#include virtual=\"/dev/_footer.asp\"-->
<%
end if
else
sGenderMale = \" checked\"
sNotifications = \" checked\"
sNewsletter = \" checked\"
sRemember = \" checked\"
ShowProfile \"\"
end if
%>
