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





%>