|
|
|
|
<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
Client Questionaire
<%
Dim Strname, StrEmail, StrQuery
strName = Trim(Request.Form("Client Name"))
strEmail = Trim (Request.Form("ClientEmail"))
strQuery = Trim(Request.Form("ClientQry"))
If (strName <> " " And strEmail <> " " And strQuery <> " " ) Then
Dim objMail, aRecipients
Set objMail = Server.CraeteObject("CDONTS.NewMail")
objMail.From = "members.spree.com/sip1/dean1"
objMail.To = strEmail
objMail.Subject = " Your Inquiry " & strName
aRecipients = Array("[email protected]" , -
"[email protected]")
objMail.BCC = Join(aRecipients, ";")
objMail.Body = strQuery
objMail.Send
Response.Write "Thank You for your Comment"
set objMail = Nothing
Else
%>
Enter Your Question
<% End If %>
|
|
|
|
|
|
I will be moving my belongings in shortly.
In the meantime why not check out the link below to get your own 20MB of free webspace?
http://www.fortunecity.com/
|
|
|
|
|
My interests:
|
<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
Client Questionaire
<%
Dim Strname, StrEmail, StrQuery
strName = Trim(Request.Form("Client Name"))
strEmail = Trim (Request.Form("ClientEmail"))
strQuery = Trim(Request.Form("ClientQry"))
If (strName <> " " And strEmail <> " " And strQuery <> " " ) Then
Dim objMail, aRecipients
Set objMail = Server.CraeteObject("CDONTS.NewMail")
objMail.From = "members.spree.com/sip1/dean1"
objMail.To = strEmail
objMail.Subject = " Your Inquiry " & strName
aRecipients = Array("[email protected]" , -
"[email protected]")
objMail.BCC = Join(aRecipients, ";")
objMail.Body = strQuery
objMail.Send
Response.Write "Thank You for your Comment"
set objMail = Nothing
Else
%>
Enter Your Question
<% End If %>
|
|
|
|
|
|
|
|
