<%@ 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 %> Indutech Canada Ltd. | NASPipe Request Form
Request Forms
Indutech Product & Service Resources


NASPipe


INDULay


INDUTech


INDUPlate



ISO 9001.2000 Certified | ASME B31.3 Certified
 

NASPipe Request Form

Use our interactive quote request forms to submit your project and pipe needs to our experienced sales staff.

<% if cint(session("stage")) = 1 then %>
<%=strErr%>
<% else %>
Company: <%=strCompany%>
Contact: <%=strContact%>
Phone: <%=strPhone%> Fax: <%=strFax%>
Address: <%=strAddress%>
City: <%=strCity%> Province/State: <%=strProvince%>
Postal/Zip Code: <%=strPOCode%>
Email: <%=strEmail%>
<% end if %>
<% if cint(session("stage")) = 2 then %>
Choose the type and features of the pipes that you require below:
<% end if if cint(session("stage")) <> 1 then set rsPipe = conn.execute("SELECT lngPipeID, strPipeType, lngQuantity, strEndPrep1, " & _ "strEndPrep2, strEndPrep3 FROM tblPipe WHERE lngCompanyID=" & session("lngCompanyID") & ";") dim intX intX = 1 if NOT rsPipe.eof then %>
<% Do until rsPipe.eof %> <% intX = intX + 1 rsPipe.movenext If not rsPipe.Eof Then%> <% end if loop %>
Type Item Qty End Prep
1
End Prep
2
End Prep
3
Refresh
<% Select Case rsPipe.fields("strPipeType").value Case "IS" Response.write("INDUlay Straight") Case "IR" Response.write("INDUlay Reducer") Case "IB" Response.write("INDUlay Bend") Case "IT" Response.write("INDUlay Standard T") Case "IY" Response.write("INDUlay Standard Y") Case "NS" Response.write("Straight") Case "NB" Response.write("Bend") Case "NT" Response.write("Standard T") Case "NY" Response.write("Standard Y") Case Else End Select%> <%=intX%> <%=rsPipe.fields("lngQuantity").value%> <%=rsPipe.fields("strEndPrep1").value%> <%=rsPipe.fields("strEndPrep2").value%> <% if len(rsPipe.fields("strEndPrep3").value) > 0 then response.write(rsPipe.fields("strEndPrep3").value) else response.write("n/a") end if %> <% if cint(session("stage")) = 2 then %> &URL=naspipe.asp">Remove <% end if %>

<% end if end if %> <% if cint(session("stage")) = 3 then %>
Comments or Additional Info:

<% end if %> <% Select Case cint(session("stage")) Case 1 %> <% Case 2 %> <% Case 3 %> <% End Select %>


 
 
© 2006 Indutech Canada Ltd.
[Main] [Company Info] [Products] [Services] [Request Forms] [Downloads] [Contact]
 
  Icona Web Development & Design