<%
msgadd = false
action = UCase(left(Request.Form("action"),3))
Select Case action
Case "SUB"
strPhone = chkphone(Request.Form("phone"))
strnPhone = chkphone(Request.Form("cphone"))
' strUname = left(Request.Form("fname"),1)&trim(Request.Form("lname"))
sql = "insert into tblNomination (awardid, fname, lname, mi, title, addr, city, state, zipcode, phone, email, discipline, agreed, present, detail, nfname, nlname, nmi, naddr, ncity, nstate, nzipcode, nphone, nemail, nomdate) VALUES ('"_
& request.form("award") & "','" _
& replace(Request.form("fname"),"'","''") & "','" _
& replace(Request.form("lname"),"'","''") & "','" _
& Ucase(replace(Request.form("mi"),"'","''")) & "','" _
& replace(Request.form("title"),"'","''") & "','" _
& replace(Request.form("addr"),"'","''") & "','" _
& replace(Request.form("city"),"'","''") & "','" _
& request.form("state") & "','" _
& request.form("zipcode") & "','" _
& strPhone & "','" _
& request.form("email") & "','" _
& replace(Request.form("discipline"),"'","''") & "','" _
& request.form("agreed") & "','" _
& request.form("present") & "','" _
& replace(Request.form("desc"),"'","''") & "','" _
& replace(Request.form("nfname"),"'","''") & "','" _
& replace(Request.form("nlname"),"'","''") & "','" _
& Ucase(replace(Request.form("nmi"),"'","''")) & "','" _
& replace(Request.form("naddr"),"'","''") & "','" _
& replace(Request.form("ncity"),"'","''") & "','" _
& request.form("nstate") & "','" _
& request.form("nzipcode") & "','" _
& strnPhone & "','" _
& request.form("nemail") & "','" _
& date() & "')"
Conn.Execute(sql)
if err = 0 then
msgadd = true
set rs = Conn.Execute("select max(nid) from tblNomination")
id = rs(0)
rs.close
Response.Redirect("../pages/printjobtn.asp?id="&id)
else
Response.Write err.Description
end if
End Select
function chkphone(strPhone)
if strPhone <> "" then
if instr(strPhone, "-") or instr(strPhone, ")") or instr(strPhone, "(") or instr(strPhone, " ") or instr(strPhone, ".") then
strPhone = replace(strPhone, "-", "")
strPhone = replace(strPhone, ")", "")
strPhone = replace(strPhone, "(", "")
strPhone = replace(strPhone, " ", "")
strPhone = replace(strPhone, ".", "")
end if
if len(strPhone) <> 10 AND len(strPhone) <> 7 then
chkPhone = 1
end if
for i = 1 to len(strPhone)
if not isnumeric(mid(strPhone, i, 1)) then
chkPhone = 1
end if
next
else
chkPhone = 0
end if
if chkPhone <> 1 then
chkPhone = strPhone
end if
end function
%>