|
Hello, have another post on here, but if anyone can help me it would great. Need this to work asap. I use the simple install and redirect if incorrect in captcha_setup.asp...but it always redirects regardless whether it is right or wrong!!
Help!!!
My input file
=========
<html>
<head>
<title>Feedback</title>
<style type="text/css" media="all">
<!-- @import url("style/coniston.css"); -->
</style>
</head>
<body topmargin="0" leftmargin="0">
<form enctype="multipart/form-data" action="pete.asp" method="post">
<table align="center" cellspacing="2" cellpadding="2" border="0"> <tr> <td colspan="2" bgcolor="#003082"><img src="images/poplogo.jpg" width="132" height="33" border="0" alt=""></td> </tr> <tr> <td colspan="2" class="plaintext"> <b>Contact Us</b><br> Please complete the following details and we will contact you shortly.
</td>
</tr>
<tr>
<td class="plaintext">Name:</td>
<td><input type="text" name="FeedFullName" value="<%=FeedFullName%>" size="60" style="color: #460046; font: 11px Verdana; border-width: 1; border-color: #000000; border-style: solid;"></td>
</tr>
<tr>
<td class="plaintext">Contact Number:</td>
<td><input type="text" name="FeedTelephone" value="<%=FeedTelephone%>" size="60" style="color: #460046; font: 11px Verdana; border-width: 1; border-color: #000000; border-style: solid;"></td>
</tr>
<tr>
<td class="plaintext">Organisation:</td>
<td><input type="text" name="FeedOrganisation" value="<%=FeedOrganisation%>" size="60" style="color: #460046; font: 11px Verdana; border-width: 1; border-color: #000000; border-style: solid;"></td>
</tr>
<tr>
<td class="plaintext">Query:</td>
<td><textarea cols="59" rows="6" name="Feedback" value="<%=Feedback%>" style="color: #460046; font: 11px Verdana; border-width: 1; border-color: #000000; border-style: solid;"></textarea>
<!-- include the Web Wiz CAPTCHA form element -->
<!--#include file="CAPTCHA/CAPTCHA_form_inc.asp" -->
</td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="submit" value="Submit" style="color: #460046; font: 11px Arial; border-width: 1; border-color: #000000; border-style: solid;"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#003082" align="center" class="plaintext"><font color="white"><b>Or call us on: (0191) 519 7300</b></font></td>
</tr>
</table>
</form>
</body>
</html>
Process Form
==========
<!-- #include file="general.asp" -->
<!-- #include file="CAPTCHA/CAPTCHA_process_form.asp" -->
<style type="text/css" media="all">
<!-- @import url("style/coniston.css"); -->
</style>
<%
Set objUpload = Server.CreateObject("Persits.Upload.1")
objUpload.overwritefiles = true
uploadDir = "E:\websites\demosite\coniston\images"
'uploadDir = "D:\wwwroot\berger\files"
fileCount = objUpload.Save(uploadDir)
' Retrieve form variables
Set FeedFullName = objUpload.form ("FeedFullName")
Set FeedTelephone = objUpload.form ("FeedTelephone")
Set FeedOrganisation = objUpload.form ("FeedOrganisation")
Set Feedback = objUpload.form ("Feedback")
' Retrieve file details
For each file in objUpload.files
newFile = File.Path
next
' Check for new file upload
if newFile <> "" Then
ImageDiagram = right(newFile, len(newFile) - (len(uploadDir) + 1))
else ImageDiagram = ""
end if
Set objUpload = Nothing
'objConn.execute strSQLInsert 'response.write strSQLInsert 'response.end strBody = "<html>" & vbCrLf strBody = strBody & "<head>" & vbCrLf strBody = strBody & "<title>Coniston IT - Feedback </title>" & vbCrLf strBody = strBody & "<meta http-equiv=""Content-Type"" content= ""text/html; charset=iso-8859-1"">" & vbCrLf strBody = strBody & "<body>" & vbCrLf strBody = strBody & "<table border= ""0"" cellpadding=""2"" cellspacing=""0"">" & vbCrLf strBody = strBody & "<tr>"& vbCrLf 'strBody = strBody & "<td colspan='2'><IMG SRC='http://demo.thecreativecake.com/tragus/images/emailHeader.jpg' BORDER='0'></td>" & vbCrLf strBody = strBody & "</tr>" & vbCrLf strBody = strBody & "<tr><tdwidth='40%'><font color='#000000'>Thank you <b> " & FeedFullName & " </b>for submitting your feedback.</font> </td>" strBody = strBody & "<tr><td><font color='#000000'> Your details have been recored as below</font> </td>" strBody = strBody & "<tr><td><font color='#000000'>Name:<b> " & FeedFullName & " </b> </font> </td>" strBody = strBody & "<tr><td><font color='#000000'>Telephone:<b> " & FeedTelephone & " </b> </font> </td>" strBody = strBody & "<tr><td><font color='#000000'>Organisation:<b> " & FeedOrganisation & " </b> </font> </td>" strBody = strBody & "<tr><td><font color='#000000'>Query:<b> " & Feedback & " </b> </font> </td>"
strBody = strBody & "<tr><td><font color='#000000'></font> </td>"
strBody = strBody & "<tr><td><font color='#000000'>Yours sincerely</font> </td>"
strBody = strBody & "<tr><td><font color='#000000'>bbb Helpdesk</font> </td>"
strBody = strBody & "</table>"& vbCrLf
strBody = strBody & "</body>"& vbCrLf
strBody = strBody & "</html>"& vbCrLf
'Set Mail = Server.CreateObject("Persits.MailSender")
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
Mail.FromName = " http://www.clientaccounts@bbb.co.uk - WWW.clientaccounts@bbb.co.uk "
Mail.FromAddress= "billy mailto:billy@bbb.com - @bbb.com "
Mail.AddRecipient "billy", "billy mailto:billy@bbb.co.uk - @bbb.co.uk "
Mail.ContentType = "text/html"
' >>> OLD SMTP RELAY >>> Mail.RemoteHost = "relay.mail.sccis.net"
Mail.Remo
|