<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit%>
<%
response.buffer=true
response.expires=-10000
dim contactSaved
contactSaved=False
%>
<%
' stateDisplayDDB() - Display states in drop down box
Public Function stateDisplayDDB(aStateCode)
Dim rs, SQL, ReturnValue, Selected, s
' No user exit provided, proceed with standard category DDB ...
SQL = "SELECT StateCode, StateName FROM States Order By StateName"
set rs = getRS(SQL)
' Set up drop down box ...
s=""
rs.Close
set rs = Nothing
stateDisplayDDB=s
End Function
Public Function insertContact()
dim SQL, rs, sMsg
On Error Resume Next
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Session("DBPath") & ";"
rs.LockType = adLockOptimistic
rs.Source = "Contacts"
rs.CursorType = adOpenKeyset
' Insert a new order record ...
rs.Open
rs.AddNew
rs("FirstName") = Trim(request.form("fname"))
rs("LastName") = Trim(request.form("lname"))
rs("CompanyName") = Trim(request.form("cname"))
rs("WorkTitle") = Trim(request.form("wtitle"))
rs("Address1") = Trim(request.form("addr1"))
rs("City") = Trim(request.form("city"))
rs("State") = request.form("state")
rs("PostalCode") = request.form("pcode")
rs("Phone") = request.form("phone")
rs("EmailAddress") = Trim(request.form("email"))
rs("MsgNote") = Trim(request.form("note"))
rs.Update
rs.Close
set rs = Nothing
contactSaved=True
sMsg="A message has been submitted on the Party Mouse website." & vbcrlf & "Please go to http://www.partymouse.com/_maint/viewcontacts.asp to view the new message." & vbcrlf
sMsg=sMsg & Trim(request.form("fname")) & vbcrlf
sMsg=sMsg & Trim(request.form("lname")) & vbcrlf
sMsg=sMsg & Trim(request.form("cname")) & vbcrlf
sMsg=sMsg & Trim(request.form("wtitle")) & vbcrlf
sMsg=sMsg & Trim(request.form("addr1")) & vbcrlf
sMsg=sMsg & Trim(request.form("city")) & vbcrlf
sMsg=sMsg & request.form("state") & vbcrlf
sMsg=sMsg & request.form("pcode") & vbcrlf
sMsg=sMsg & request.form("phone") & vbcrlf
sMsg=sMsg & Trim(request.form("email")) & vbcrlf
sMsg=sMsg & Trim(request.form("note")) & vbcrlf
sendEmail "jivagroce@gmail.com", "reyesga@ix.netcom.com,ballja@ix.netcom.com", "", "Corporate Web Site Contact Submission", sMsg
End Function
'Is a message being submitted?
if not IsEmpty(request.form("action")) Then
if request.form("action")="s" Then
insertContact()
end if
end if
%>
Party Mouse - Contact Us
. . . .Rentals & Party Goods for all Occasions