<%=PAGETITLE%> :: Contact

<% If request.form("send") <> "" Then dim check1, check2 check1 = Cint(InStr(1, (request.form("address")), "Content-Type", vbTextCompare)) check2 = Cint(InStr(1, (request.form("address")), "Content-Type")) If check1 = 0 AND check2 = 0 Then set msg = Server.CreateOBject("JMail.Message") msg.Logging = false msg.From = "webmaster@aclandinternet.com" msg.FromName = "Steffisartwork Website" msg.AddRecipient "info@steffisartwork.com" msg.Subject = "Steffisartwork: Website Enquiry" msg.appendText "======================================================== " & VbCrLf msg.appendText "Steffisartwork Website Enquiry " & VbCrLf msg.appendText "======================================================== " & VbCrLf & VbCrLf msg.appendText "Submitted on: " & now & VbCrLf & VbCrLf msg.appendtext "Name: " & request.form("name") & VbCrLf & VbCrLf msg.appendtext "E-mail address: " & request.form("email") & VbCrLf & VbCrLf msg.appendtext "Telephone: "& request.form("tel") & VbCrLf & VbCrLf msg.appendtext "Mobile: "& request.form("mobile") & VbCrLf & VbCrLf msg.appendtext "Interested in: "& request.form("art4sale") & VbCrLf & VbCrLf msg.appendtext "Enquiry: " & VbCrLf & VbCrLf msg.appendtext request.form("query") & VbCrLf & VbCrLf msg.appendText "======================================================== " & VbCrLf msg.appendtext "User Information: " & VbCrLf msg.appendtext "IP address: " & request.ServerVariables("REMOTE_ADDR") & " " & VbCrLf msg.appendText "======================================================== " & VbCrLf msg.Send ("localhost") set msg = nothing response.Redirect("contact.asp?page=1") Else set msg = Server.CreateOBject("JMail.Message") msg.Logging = false msg.From = "webmaster@aclandinternet.com" msg.FromName = "Steffisartwork Website" 'msg.AddRecipient "info@steffisartwork.com" msg.AddRecipient "info@steffisartwork.com" msg.Subject = "Steffisartwork: Website Abuse" msg.appendText "======================================================== " & VbCrLf msg.appendText "Steffisartwork Website Abuse " & VbCrLf msg.appendText "======================================================== " & VbCrLf & VbCrLf msg.appendText "Submitted on: " & now & VbCrLf & VbCrLf msg.appendtext "Name: " & request.form("name") & VbCrLf & VbCrLf msg.appendtext "E-mail address: " & request.form("email") & VbCrLf & VbCrLf msg.appendtext "Telephone: "& request.form("tel") & VbCrLf & VbCrLf msg.appendtext "Mobile: "& request.form("mobile") & VbCrLf & VbCrLf msg.appendtext "Interested in: "& request.form("art4sale") & VbCrLf & VbCrLf msg.appendtext "Enquiry: " & VbCrLf & VbCrLf msg.appendtext request.form("query") & VbCrLf & VbCrLf msg.appendText "======================================================== " & VbCrLf msg.appendtext "User Information: " & VbCrLf msg.appendtext "IP address: " & request.ServerVariables("REMOTE_ADDR") & " " & VbCrLf msg.appendText "======================================================== " & VbCrLf msg.Send ("localhost") set msg = nothing response.Redirect("default.asp") End if End if %> <%=PAGETITLE%> :: Contact <% Conn.Open DBSTRING %>

<% SQL="SELECT filename,piecename FROM art " SQL=SQL&"WHERE img_other = 1 " %> <% set rs = server.createobject("adodb.recordset") rs.open SQL,Conn,1,1 If not rs.eof then Do while not rs.eof %> <% rs.movenext loop End if rs.close set rs = nothing %>










" width="170" border="0" alt="<%=rs("piecename")%>"> "<%=rs("piecename")%>"
© Steffi Goddard <%=year(now)%> Designed and Hosted By JAY Solutions Site Policy and Usage

<% If request.QueryString("page") <> "1" Then %> <% Elseif request.QueryString("page") = "1" Then %> <% End if %>

<% SQL="SELECT piecename FROM art " SQL=SQL&"WHERE sale = 1 " SQL=SQL&"ORDER BY piecename;" set rs = server.createobject("adodb.recordset") rs.open SQL,Conn,1,1 If not rs.eof then %> <% End if rs.close set rs = nothing %>

Telephone :	+44 (0)7734 435 781
E-mail :	Click here to send us an e-mail
Information Request Form
Name :
E-mail :
Telephone :
Mobile :
Artwork for sale that you are interested in : (hold the 'ctrl' key to select multiple pieces)
Query :

Thank you for your submission.
We will be in contact with you shortly.

<% Conn.close %>