elieazzi
asked on
convert my CDONTS to CDOSYS contact form...
Hello Experts,
I have an online form 'contact us' it was working previously but on Windows 2008 Server is not working.
http://www.caf-fca.org/en/contact/ So in order to work you will have to convert the CDONTS code to CDOSYS contact form, i've attached my backend code.
Set objMail = Server.CreateObject("CDONT S.NewMail" )
Research revealed that CDONTS is a 32-bit module but the Windows 2008 OS the server is running on is 64-bit.
How can you fix my simple code. I have a simple contact form:
Mr. ________
Email: _______
I want to fix my back end code i don't know how... please advice i'm not familiari with this please edit the thankyou.asp code for me to test it.
I have an online form 'contact us' it was working previously but on Windows 2008 Server is not working.
http://www.caf-fca.org/en/contact/ So in order to work you will have to convert the CDONTS code to CDOSYS contact form, i've attached my backend code.
Set objMail = Server.CreateObject("CDONT
Research revealed that CDONTS is a 32-bit module but the Windows 2008 OS the server is running on is 64-bit.
How can you fix my simple code. I have a simple contact form:
Mr. ________
Email: _______
I want to fix my back end code i don't know how... please advice i'm not familiari with this please edit the thankyou.asp code for me to test it.
-------------------------------
Backend CODE - Thankyou.asp
--------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim from, sendto, subject, attn, body, name, phone, method
Dim strSQL
Set from = Request.Form("from")
Set subject = Request.Form("subject")
Set sendto = Request.Form("to")
Set attn = Request.Form("attn")
Set body = Request.Form("message")
Set salutation = Request.Form("salutation")
Set name = Request.Form("name")
Set phone1 = Request.Form("phone1")
Set phone2 = Request.Form("phone2")
Set phone3 = Request.Form("phone3")
Set phone4 = Request.Form("phone4")
Set method = Request.Form("method")
body = "From: " & salutation & " " & name & chr(10) & chr(13) & _
"Preferred contact method: " & method & chr(10) & chr(13) & _
"E-mail: " & From & chr(13) & _
"Phone: " & "(" & phone1 & ")" & " " & phone2 & "-" & phone3 & " Ext. " & phone4 & chr(10) & chr(13) & _
"Message:" & chr(13) & body & chr(10) & chr(13) & _
"--------------------------------------------------------------" & chr(13) & _
"E-mail sent via CAF-FCA web forms. Email has been sent to : " & sendto & " - " & now() & chr(10) & chr(13)
'--------------July 28 2004 Sending email using CDONT --------------------
set Mail = Server.CreateObject("CDONTS.newMail")
Mail.To = sendTo
Mail.From = name & " (" & From & ")"
Mail.Body = body
'Mail.Value("Reply-To") = from
'Mail.BodyFormat = 0
Mail.Subject = attn
On Error Resume Next
Mail.Send
set Mail = Nothing
'--------------------------------------------------------------------------
'On Error Resume Next
'Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
else
Response.Write "Thank you.<br><br>Your email has been sent. Please allow at least 24 hours for a response if you requested one."
End If
%>
==================================================
This is my default.asp CONTACT form very simple
==================================================
<form method="post" action="../who_we_are/thankyou.asp" onSubmit="return checkForm(this);">
<table width="98%" border="0" cellspacing="1" cellpadding="1" align="center">
<tr bgcolor="#4775a3">
<td colspan="2"><div align="left"><strong><font color="#FFFFFF" size="+1">*</font> <font color="#FFFFFF"> = Required field</font></strong></div></td>
</tr>
<tr bgcolor="#ccd9e5">
<td width="36%" class="byline"><div align="right"> Send this e-mail to:</div></td>
<td width="64%" class="byline"><select size="1" name="to" class="formfield">
<option selected value="elie_azzi@caf-fca.org">General Enquiries</option>
<option value="elie_azzi@caf-fca.org">Marketing, Communications & Media Enquiries</option>
<option value="elie_azzi@caf-fca.org">CAF-FCA Conference</option>
<option value="elie_azzi@caf-fca.org">Information Technology</option>
<option value="elie_azzi@caf-fca.org">Programs & Corporate Development</option>
</select></td>
</tr>
<tr bgcolor="#DDDDDD">
<td class="byline"><div align="right"> Attention: </div></td>
<td><input type="text" name="attn" size="51">
<INPUT TYPE="HIDDEN" name="note" value="Email sent from CAF-FCA Web site - http://www.caf-fca.org/english/contact.asp"></td>
</tr>
<tr bgcolor="#ccd9e5">
<td class="byline"><div align="right"> Preferred contact method:</div></td>
<td><select size="1" name="method" class="formfield">
<option selected value="email">by e-mail</option>
<option value="phone">by telephone</option>
<option value="do not contact me">do not contact me</option>
</select></td>
</tr>
<tr bgcolor="#DDDDDD">
<td class="byline"><div align="right">Your name: </div></td>
<td><select name="salutation" size="1" id="MyContactInfo_PrefixList" size="15">
<option selected>Select One</option>
<option value="Mr.">Mr.</option>
<option value="Mrs.">Mrs.</option>
<option value="Ms.">Ms.</option>
<option value="Dr.">Dr.</option>
</select><input type="text" name="name" size="35"></td>
</tr>
<tr bgcolor="#ccd9e5">
<td width="36%" class="byline"><div align="right"><font size="+1" color="#FF0000"><strong>*</strong></font> Your Email:</div></td>
<td width="64%"><input type="text" name="From" size="51"></td>
</tr>
<tr bgcolor="#DDDDDD">
<td class="byline"><div align="right">Your telephone: </div></td>
<td>( <input name="phone1" id="phone1" value="" size="3" maxlength="3">
)
<input name="phone2" id="phone2" value="" size="3" maxlength="3">
-
<input name="phone3" id="phone3" value="" size="4" maxlength="4">
Ext.:
[ <input name="phone4" id="phone4" value="" size="6" maxlength="6">
] </td>
</tr>
<tr bgcolor="#ccd9e5">
<td class="byline" valign="top"><div align="right"> What can we do for you?</div></td>
<td><textarea cols="40" rows="5" name="message"></textarea></td>
</tr>
<tr bgcolor="#DDDDDD">
<td colspan="2" class="byline" align="center">
<input type="submit" value="Submit" name="SUBMIT">
<input type="reset" value="Clear" name="RESET">
</td></tr>
</table>
</form>
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
This implemeantion should be on the thankyou.asp or default.asp page. please specify...
Please advice where I should implemented in the code so I should replace this
'--------------July 28 2004 Sending email using CDONT --------------------
set Mail = Server.CreateObject("CDONT S.newMail" )
Mail.To = sendTo
Mail.From = name & " (" & From & ")"
Mail.Body = body
'Mail.Value("Reply-To") = from
'Mail.BodyFormat = 0
Mail.Subject = attn
On Error Resume Next
Mail.Send
set Mail = Nothing
'------------------------- ---------- ---------- ---------- ---------- ---------
Please advice where I should implemented in the code so I should replace this
'--------------July 28 2004 Sending email using CDONT --------------------
set Mail = Server.CreateObject("CDONT
Mail.To = sendTo
Mail.From = name & " (" & From & ")"
Mail.Body = body
'Mail.Value("Reply-To") = from
'Mail.BodyFormat = 0
Mail.Subject = attn
On Error Resume Next
Mail.Send
set Mail = Nothing
'-------------------------
With the following code?
Set Mail=CreateObject("CDO.Message")
Mail.Subject=attn
Mail.From = name & " (" & From & ")"
Mail.To=sendTo
Mail.TextBody=body
On Error Resume Next
Mail.Send
set Mail = Nothing
yes correct
ASKER
Thank you I'm posting another question same problem pls advice.
ASKER
http://www.w3schools.com/asp/asp_send_email.asp