PLEASE HELP!

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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> &nbsp;</td>"
strBody = strBody & "<tr><td><font color='#000000'> Your details have been recored as below</font> &nbsp;</td>"
strBody = strBody & "<tr><td><font color='#000000'>Name:<b> " & FeedFullName & " </b> </font> &nbsp;</td>"
strBody = strBody & "<tr><td><font color='#000000'>Telephone:<b> " & FeedTelephone & " </b> </font> &nbsp;</td>"
strBody = strBody & "<tr><td><font color='#000000'>Organisation:<b> " & FeedOrganisation & " </b> </font> &nbsp;</td>"
strBody = strBody & "<tr><td><font color='#000000'>Query:<b> " & Feedback & " </b> </font> &nbsp;</td>"
strBody = strBody & "<tr><td><font color='#000000'></font> &nbsp;</td>"
strBody = strBody & "<tr><td><font color='#000000'>Yours sincerely</font> &nbsp;</td>"
strBody = strBody & "<tr><td><font color='#000000'>bbb Helpdesk</font> &nbsp;</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   = "WWW.clientaccounts@bbb.co.uk"
Mail.FromAddress= "billy@bbb.com"
Mail.AddRecipient "billy", "billy@bbb.co.uk"
Mail.ContentType = "text/html"
'   >>> OLD SMTP RELAY >>> Mail.RemoteHost = "relay.mail.sccis.net"
Mail.Remo