Contents of insert1.asp:
<html> <head> <script language="VBScript"> <!--- sub checkit if NOT isNumeric(document.xform.ssn.value) then msgbox "ssn is NOT a number. Re-enter" exit sub end if if NOT isNumeric(document.xform.mon_hrs.value) then msgbox "Monday Hours is NOT a number. Re-enter" exit sub end if if NOT isNumeric(document.xform.mon_hrs.value) then msgbox "Monday Hours is NOT a number. Re-enter" exit sub end if if NOT isNumeric(document.xform.tue_hrs.value) then msgbox "Tuesday Hours is NOT a number. Re-enter" exit sub end if if NOT isNumeric(document.xform.wed_hrs.value) then msgbox "WEDNESDAY Hours is NOT a number. Re-enter" exit sub end if if NOT isNumeric(document.xform.thu_hrs.value) then msgbox "Thursday Hours is NOT a number. Re-enter" exit sub end if if NOT isNumeric(document.xform.fri_hrs.value) then msgbox "Friday Hours is NOT a number. Re-enter" exit sub end if document.xform.submit end sub ---> </script> </head> <body> <form name="xform" method="POST" action="insert1.asp"> <% sub pass1 %> <b>THIS WEEK'S HOURS</b> <p>SSN <input type="text" name="ssn" size="11"> <br>LAST NAME <input type="text" name="last_name" size="30"> <br>FIRST NAME <input type="text" name="first_name" size="15"> <br>MIDDLE NAME <input type="text" name="middle_name" size="15"> <br>MON <input type="text" name="mon_hrs" size="2"> <br>TUE <input type="text" name="tue_hrs" size="2"> <br>WED <input type="text" name="wed_hrs" size="2"> <br>THU <input type="text" name="thu_hrs" size="2"> <br>FRI <input type="text" name="fri_hrs" size="2"> <input type="hidden" name="token" value="2"> <br> <input type="button" onClick="checkit" value="Submit"> <% end sub sub pass2 on error resume next set cn = Server.CreateObject("ADODB.Connection") fdsn="gl001" fuid="gl001" fpwd="11111" cn.open fdsn,fuid,fpwd 'response.write "open ok" Insert_string="INSERT INTO weekly_timecard (ssn,last_name,first_name,middle_name,mon_hrs,tue_hrs,wed_hrs,thu_hrs,fri_hrs)" Insert_string=Insert_string+" VALUES (" Insert_string=Insert_string+cstr(Request.form("ssn"))+"," Insert_string=Insert_string+chr(39)+cstr(Request.form("last_name"))+chr(39)+"," Insert_string=Insert_string+chr(39)+cstr(Request.form("first_name"))+chr(39)+"," Insert_string=Insert_string+chr(39)+cstr(Request.form("middle_name"))+chr(39)+"," Insert_string=Insert_string+cstr(Request.form("mon_hrs"))+"," Insert_string=Insert_string+cstr(Request.form("tue_hrs"))+"," Insert_string=Insert_string+cstr(Request.form("wed_hrs"))+"," Insert_string=Insert_string+cstr(Request.form("thu_hrs"))+ "," Insert_string=Insert_string+cstr(Request.form("fri_hrs")) +")" '*** response.write "<p>insert_string="+cstr(Insert_string) cn.execute Insert_string,numa if Err = 0 and numa = 1 then response.write "<p>Added OK.<br>Click <a href='insert1.asp'> here</a> for another insert" else If cn.Errors.Count > 0 Then for i = 0 to cn.Errors.Count - 1 response.write "<p>" etext=ucase(cn.errors(i)) k=instr(etext,"DUPLICATE") '**** response.write "<p>k="+cstr(k) if k > 0 then response.write "<p>DUPLICATE ssn IN THE DATABASE!!<br>" response.write "SSN="+cstr(request.form("ssn")) + " already entered. Click the <b>BACK</b> button to try again" exit for else response.write "<br><b>"+cn.errors(i)+"</b>" end if next end if end if end sub sub errorpass response.write end sub ' '*** top of main ' on error resume next token=request.form("token") '**** response.write "<p>token--->"+cstr(request.form("token"))+"<----<p>" select case token case "" call pass1 case "2" call pass2 case else call errorpass end select %> </form> </body> </html>
***** end of file *** printed: 134 lines on: 11/23/2009 6:04:53 AM
