%@ Language="VBScript" %> <% 'Completion Date: March 12, 2004 'Project: Indutech Pipe Request Forms 'Client: Indutech Canada Ltd. 'Designer: Active Images Studios 'Programmer: Eric Bouwsema, Alpine Worx 'All Code copyright 2002-2004 Alpine Worx and Eric Bouwsema dim conn set conn = server.CreateObject("ADODB.connection") dim rsCompany set rsCompany = server.CreateObject("ADODB.recordset") dim rsPipe set rsPipe = server.CreateObject("ADODB.recordset") conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbs\quote.mdb") conn.Open dim strCompany dim strContact dim strPhone dim strFax dim strEmail dim mmoComments dim strErr dim submit_to dim cc_to dim ok_url dim not_ok_url if session("lngCompanyID") <> "" then strCompany = session("strCompany") strContact = session("strContact") strPhone = session("strPhone") strFax = session("strFax") strEmail = session("strEmail") strAddress = session("strAddress") strCity = session("strCity") strProvince = session("strProvince") strPOCode = session("strPOCode") mmoComments = session("mmoComments") end if Select Case Session("stage") Case 1 If len(request.querystring("ACTION_NEXT_1")) > 0 Then strCompany = request.querystring("strCompany") strContact = request.querystring("strContact") strPhone = request.querystring("strPhone") strFax = request.querystring("strFax") strEmail = request.querystring("strEmail") strAddress = request.querystring("strAddress") strCity = request.querystring("strCity") strProvince = request.querystring("strProvince") strPOCode = request.querystring("strPOCode") mmoComments = request.querystring("Comments") If len(strEmail) = 0 And len(strPhone) = 0 Then strErr = "Please enter either an Email Address or Phone Number." Else If len(strContact) = 0 Then strErr = "Please enter either a Contact Name." Else if session("lngCompanyID") = "" then tmpDT = Date() & "-" & Time() conn.execute("INSERT INTO tblCompany (strDate) VALUES ('" & tmpDT & "');") set rsCompany = conn.execute("SELECT lngCompanyID FROM tblCompany WHERE strDate='" & tmpDT & "';") session("lngCompanyID") = rsCompany.fields("lngCompanyID").value rsCompany.Close end if session("strCompany") = strCompany session("strContact") = strContact session("strPhone") = strPhone session("strFax") = strFax session("strEmail") = strEmail session("strAddress") = strAddress session("strCity") = strCity session("strProvince") = strProvince session("strPOCode") = strPOCode session("mmoComments") = mmoComments conn.Execute ("UPDATE tblCompany SET strCompany='" & strCompany & "', strContact='" & strContact & _ "', strPhone='" & strPhone & "', strFax='" & strFax & "', strEmail='" & strEmail & "', strAddress='" & _ strAddress & "', strProvince='" & strProvince & "', strPOCode='" & strPOCode & "', strCity='" & _ strCity & "', mmoComments='" & mmoComments & "' WHERE lngCompanyID=" & session("lngCompanyID") & ";") Session("stage") = 2 End If End If End If Case 2 If len(request.querystring("ACTION_BACK_2")) > 0 Then Session("stage") = 1 End If If len(request.querystring("ACTION_NEXT_2")) > 0 Then Session("stage") = 3 End If Case 3 If len(request.querystring("ACTION_BACK_3")) > 0 Then Session("stage") = 2 End If If len(request.querystring("ACTION_NEXT_3")) > 0 Then submit_to = request.querystring("submit_to") cc_to = request.querystring("cc_to") ok_url = request.querystring("ok_url") not_ok_url = request.querystring("not_ok_url") mmoComments = request.querystring("Comments") session("mmoComments") = mmoComments conn.execute("UPDATE tblCompany SET mmoComments='" & mmoComments & "' WHERE lngCompanyID=" & session("lngCompanyID") & ";") 'Session.Abandon() response.redirect("email.asp?submit_to=" & submit_to & "&cc_to=" & cc_to & "&ok_url=" & ok_url & "¬_ok_url=" & not_ok_url) End If Case Else session("stage") = 1 End Select %>
![]() |
||
|
||||||||||||||||||||||||||||
|
|||||||||||