won't stop loading?

[JustXtreme]

Ok, i'm having a problem with this page, it wont' stop loading. i had a problem where as soon as i went went there, it redirected me to my success page. well i took that off and now it just loads and loads and loads. The funy thing is that it still works . i still need to fix it though. here's a link
http://www.eventpersonnel.com/demopayroll.asp

CODE
------------------------------------------------------------------
<%

Dim strSQL,Conn, db_path

db_path = Server.MapPath("access_db")
db_path=db_path & "\Demopayroll.mdb"

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & db_path




strSQL = "INSERT INTO payrolldispute (name,cnum,email,dispute)VALUES('" & Request.Form("name") & "','" & Request.Form("cnum") & "','" & Request.Form("email") & "','" & Request.Form("dispute")&"');"


dim objMail,strBody
Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = Request.form("Email")
objMail.To = Request.form("Email")
objMail.Cc = "[email protected]"
objMail.Subject = "Thank-you for your submission!" & " " & request.form("cnum")
strBody = "Hello, " & request.form("name") & " " & request.form("Lname") & vbCrLf & vbCrLf
strBody = strBody & "Thank-you for contacting us regarding your payroll dispute with Demo Sales" & vbCrLf
strBody = strBody & "We will review your information and contact you soon." & vbCrLf & vbCrLf
strBody = strBody & "your refrence number is: " & request.form("cnum") & VbCrLf & VbCrLf
strBody = strBody & "your email: " & request.form("email") & VbCrLf
strBody = strBody & "your dispute:" & VbCrLf
strBody = strBody & request.form ("dispute") & VbCrLf & VbCrLf
strBody = strBody & "Thank You," & VbCrLf
strBody = strBody & "Demo Sales Staff" & VbCrLf & VbCrLf & VbCrLf
strBody = strBody & "Demo Sales" & VbCrLf
strBody = strBody & "3025 Whitten Road" & VbCrLf
strBody = strBody & "Lakeland, Florida 33811" & VbCrLf & VbCrlf
strBody = strBody & "Phone: 1-800-569-3366" & VbCrLf
strBody = strBody & "Fax: 863-937-0505" & VbCrLf
objMail.Body = strBody
'objMail.AttachFile ("d:\hosting\justxtreme\DemonstratorPacket.doc")
'objMail.AttachFile ("d:\hosting\justxtreme\W9.pdf")
objMail.Send
Set objMail = Nothing

conn.Execute strSQL
'response.write strSQL Displays the sql statement thats is being submited
conn.close
Set conn = Nothing





%>

[JustXtreme]

Also, it submits on load i believe. or multi times on submit.

[kaihirst]

Hi justin..

First of all .. You could just ASK me on line!!! Thats why my company does consult for you last time I checked

Anyways.

it looks like a boolean logic block is neeeded here to stop it submitting here. BEst thign to do lad is grab me on line this week or sumtime and ill fix adn optimize the code as well as its not gonna blend wel with the profiler.

Buzz me when u get this

Cheers

Kai

[JustXtreme]

Thanx Kai, For taking care of this for me