help?? sending SMTPsvg mail

[kiwix]

I have hit a wall, i am told by my hoster i need to use smtpsvg to send emails from web sites. cool i used teh following code but am unable to send emails what am i doing wrong here help!! new to this game...

PAGE CODE
<form action=&quot;<%=Request.ServerVariables(&quot;PATH_INFO&quot%>&quot; method=&quot;post&quot;>
<p>
<input name=&quot;_recipients&quot; type=&quot;hidden&quot; value=&quot;info@identityrecordings.co.uk&quot; />
<input name=&quot;_subject&quot; type=&quot;hidden&quot; value=&quot;Comments&quot; />
<input name=&quot;_requiredFields&quot; type=&quot;hidden&quot; value=&quot;Name,Comments,Email&quot; />
<input name=&quot;_requiredFields&quot; type=&quot;hidden&quot; value=&quot;Name,Mobile,Email,Comments&quot; />
<table cellspacing=&quot;0&quot; cellpadding=&quot;3&quot; border=&quot;0&quot; align=&quot;center&quot;>
<tr>
<td align=&quot;right&quot; class=&quot;btext&quot;>Name: </td>
<td align=&quot;left&quot;><input name=&quot;Name&quot; type=&quot;text&quot; /></td>
</tr>
<tr>
<td align=&quot;right&quot; class=&quot;btext&quot;>Mobile Number: </td>
<td align=&quot;left&quot;><input name=&quot;Mobile&quot; type=&quot;text&quot; /></td>
</tr>
<tr>
<td align=&quot;right&quot; class=&quot;btext&quot;>Email Address: </td>
<td align=&quot;left&quot;><input name=&quot;Email&quot; type=&quot;text&quot; /></td>
</tr>
<tr>
<td align=&quot;center&quot; colspan=&quot;2&quot; class=&quot;btext&quot;>Comments:</td>
</tr>
<tr>
<td align=&quot;center&quot; colspan=&quot;2&quot;><textarea name=&quot;Comments&quot; rows=5 cols=50></textarea></td>
</tr>
<tr>
<td align=&quot;center&quot; colspan=&quot;2&quot;>
<input type=&quot;submit&quot; value=&quot;Submit&quot; />
<input type=&quot;hidden&quot; name=&quot;sendEmail&quot; value=&quot;1&quot;>
<input type=&quot;reset&quot; value=&quot;Clear&quot; /></td>
</tr>
</table>
</p>
<%
if Request.Form(&quot;sendEmail&quot > &quot;&quot; then
if Request.Form(&quot;Name&quot > &quot;&quot; then
if Request.Form(&quot;Mobile&quot > &quot;&quot; then
if Request.Form(&quot;Email&quot > &quot;&quot; then
if Request.Form(&quot;Comments&quot > &quot;&quot; then
strComments = replace(Request.Form(&quot;Comments&quot,vbcrlf,&quot;<BR>&quot
else
strComments = &quot;No comments given.&quot;
end if
lngSent = SendEmail(&quot;Comments&quot;,strComments,Request.Form(&quot;Email&quot,Application(&quot;WEBSITE_EMAIL&quot,&quot;&quot
strMessage = &quot;Thank you.\n\nYour comments have been received.&quot;
else
strMessage = &quot;Please enter your email address before trying to send us a comment.&quot;
end if
end if
end if
end if
if strMessage > &quot;&quot; then
%>
<SCRIPT LANGUAGE=&quot;JavaScript&quot; TYPE=&quot;text/javascript&quot;>
<!--
alert('<%=strMessage%>')
//-->
</SCRIPT>
<%end if%>
<p align=&quot;center&quot; class=&quot;news&quot;>We
promise that we will not give your details to anyone else and will only send
you information regarding our events. If you want to unsubscribe, please send
an email with 'UNSUBSCRIBE' in the subject to <a href=&quot;mailto:info@identityrecordings.co.uk&quot;>
info@identityrecordings.co.uk</a>.</p>
</form>

GENERATE EMAIL CODE TO SEND EMAIL
if Application(&quot;SMTPSVG&quot then
Set Mailer = Server.CreateObject(&quot;SMTPsvg.Mailer&quot
Mailer.ContentType = &quot;text/html&quot;
Mailer.RemoteHost = Application(&quot;SMTP_SERVER_NAME&quot

if strEmailsTo > &quot;&quot; then
arrEmailsTo = split(strEmailsTo,&quot;,&quot
for lngEmailsTo = 0 to ubound(arrEmailsTo)
Mailer.AddRecipient &quot;&quot;, arrEmailsTo(lngEmailsTo)
next
else
Mailer.AddRecipient &quot;&quot;, Application(&quot;WEBSITE_EMAIL&quot
end if

if strEmailsBCC > &quot;&quot; then
arrEmailsBCC = split(strEmailsBCC,&quot;,&quot
for lngEmailsBCC = 0 to ubound(arrEmailsBCC)
Mailer.AddBCC trim(arrEmailsBCC(lngEmailsBCC))
next
end if

if strEmailFrom > &quot;&quot; then
Mailer.FromAddress = strEmailFrom
else
Mailer.FromAddress = Application(&quot;WEBSITE_EMAIL&quot
end if
Mailer.Subject = strSubject
Mailer.BodyText = strHTML

Mailer.SendMail
Set Mailer = Nothing
end if