% 'Yovan Fernandez 'Variables Dim StrName,StrBizName,StrAddress,StrCityStateZip,StrEmail,StrPhone,StrAltPhone,strComments,StrContact_Reason,hasitBeenSubmitted,StrOtherMore,StrBulgar,StrFire,StrCCTV,StrAccess,StrOther hasitBeenSubmitted=request.Form("Submit") StrName = request.form("name") 'old asp support If StrName<>"" Then 'Variable association StrName = request.form("name") StrBizName = request.form("BusinessName") StrAddress = request.form("Address") StrCityStateZip = request.form("CityStateZip") StrEmail = request.form("Email") StrPhone = request.form("phone") StrAltPhone = request.form("AltPhone") StrComments = request.form("Comments") StrBizType = request.form("Contact_Reason") StrVisitType = request.form("visit") StrBestTime= request.form("call") 'Database Code Set Conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=ASG_EBILL;uid=asg_ebill;pwd=ebill@asg;DATABASE=ASG_EBILL" SQLstmt = "INSERT INTO WWW_SUPPORT " SQLStmt = SQLstmt & "SELECT '" & StrName & "','" & StrBizName & "','" & StrBizType & "','" & StrAddress & "','" & StrCityStateZip & "','" & StrEmail & "','" & StrPhone & "','" & StrAltPhone & "','" & StrVisitType & "','" & StrBestTime & "','" & StrComments SQLStmt = SQLstmt & "',getdate()" Set RS = Conn.Execute(SQLStmt) If err.number>0 then vbscript_errors = 1 gotonext = 1 response.write "VBScript Errors Occured:" & "
" response.write "Error Number=" & err.number & "
" response.write "Error Descr.=" & err.description & "
" response.write "Help Context=" & err.helpcontext & "
" response.write "Help Path=" & err.helppath & "
" response.write "Native Error=" & err.nativeerror & "
" response.write "Source=" & err.source & "
" response.write "SQLState=" & err.sqlstate & "
" else vbscript_errors = 0 end if IF conn.errors.count> 0 then database_errors = 1 gotonext = 1 response.write "Database Errors Occured" & "
" response.write SQLstmt & "
" for counter= 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & "
" response.write "Error desc. -> " & conn.errors(counter).description & "
"
next
else
database_errors = 0
response.write "Record Has been Updated!
"
'response.write "
" & SQLstmt
end if
'rs.close
set rs=nothing
Conn.Close
set conn=nothing
end if
%>
|
||||
|
|
||||
|
|
|
Site Map | Privacy ©2006 ASG Security |