|
<%
' ASPMail(tm) from http://www.serverobjects.com
' is not part of ASP per se,
' but a excellent third party component
my_from=request("mail-fromName")
my_fromAddress=request("mail-fromaddress")
my_to=request("mail-toName")
my_toAddress=request("mail-toaddress")
my_subject=request("mail-subject")
my_relay=request("mail-relay")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = my_relay
Mailer.FromName = my_from
Mailer.FromAddress = my_fromAddress
Mailer.AddRecipient my_to, my_toaddress
Mailer.Subject = my_subject
for each whatever in request.querystring
If instr(whatever,"mail-")=0 then
Mailer.BodyText = whatever & "=" & vbcrlf
Mailer.BodyText = request.querystring(whatever) & vbcrlf & vbcrlf
end if
next
for each whatever in request.form
If instr(whatever,"mail-")=0 then
Mailer.BodyText = whatever & "=" & vbcrlf
Mailer.BodyText = request.form(whatever) & vbcrlf & vbcrlf
end if
next
If Mailer.SendMail then
Msg = "Sent Sucessfully!"
Else
Msg = "SEND v.1"
End If
response.write Msg
%> |
|
 |
| |
Internet
Recruiting Sign-Up
Sourcing
Done The Right Way
Please
fill out all information.
 |
After
submiting a sourcing request, you will be contacted shortly
after to verify billing information. |
 |
Please
allow 24-48 hours processing time for all sourcing request.
|
|

|
| |
|
|  |
| |
|
 |