-
won't stop loading?
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
%>
-
Re: won't stop loading?
Also, it submits on load i believe. or multi times on submit.
-
Re: won't stop loading?
Hi justin..
First of all .. You could just ASK me on line!!! Thats why my company does consult for you last time I checked :bigyello: :bigyello: :bigyello:
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
-
Re: won't stop loading?
Thanx Kai, For taking care of this for me :)