<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
randomize timer
Dim rsQuote
Dim rsQuote_numRows
Dim contactSource
Dim siteName
contactSource=request.QueryString("site")
Select Case contactSource
Case "practicalcomponents"
siteName="Practical Components, Inc"
Case "neapco"
siteName="Neapco LLC"
Case "madison"
siteName="Madison Concrete Construction"
Case "alset"
siteName="Alset Corporation"
Case "agex"
siteName="Agricultural Exports, Inc"
Case "starhealthcarenet"
siteName="Star Healthcare Net, Inc"
Case "trinity"
siteName="Trinity Capital Management, LLC"
Case "womanwisdom"
siteName="Woman Wisdom Corp"
Case "vonculin"
siteName="Von Culin Associates, LLC"
Case "comparemyagent"
siteName="Compare My Agent, LLC"
Case "bluestone"
siteName="Bluestone Gardens"
Case "americanwatercolor"
siteName="American Watercolor Society"
Case "Paragon"
siteName="Paragon Landscaping Corporation"
Case "Squarewheel"
siteName="Square Wheel Industries"
Case "dri"
siteName="Diversified Refrigeration, Inc"
Case "CAOA"
siteName="Crimes Against Older Adults, Bucks County"
Case "comparehomez"
siteName="Comparehomez"
Case Else
siteName=""
End Select
Set rsQuote = Server.CreateObject("ADODB.Recordset")
rsQuote.ActiveConnection = MM_connGWSSites_STRING
rsQuote.Source = "SELECT quotes_record, quotes_company, quotes_contact, quotes_snip FROM quotes ORDER BY quotes_record DESC"
rsQuote.CursorType = 0
rsQuote.CursorLocation = 2
rsQuote.LockType = 1
rsQuote.Open()
rsQuote_numRows = 0
varrandomQuote = int(rnd()*(rsQuote.Fields.Item("quotes_record").Value))+1
Dim rsTestimonialRandom__MMColParam
rsTestimonialRandom__MMColParam = "1"
If (varrandomQuote) <> 0 Then
rsTestimonialRandom__MMColParam = varrandomQuote
End If
%>
<%
Dim rsTestimonialRandom
Dim rsTestimonialRandom_numRows
Set rsTestimonialRandom = Server.CreateObject("ADODB.Recordset")
rsTestimonialRandom.ActiveConnection = MM_connGWSSites_STRING
rsTestimonialRandom.Source = "SELECT * FROM quotes WHERE quotes_record = " + Replace(rsTestimonialRandom__MMColParam, "'", "''") + ""
rsTestimonialRandom.CursorType = 0
rsTestimonialRandom.CursorLocation = 2
rsTestimonialRandom.LockType = 1
rsTestimonialRandom.Open()
rsTestimonialRandom_numRows = 0
%>
<%
'Basic CDO Mail from Web-Shorts.com
'If Request.Form("Submit") <> "" and (Request.Form("captcha")="5" or LCase(Request.Form("captcha")="five")) Then
If Request.Form("Submit") <> "" and (Request.Form("MOREcommentfield") = "Enter More Comments here") Then
ws_Subject = "GWS Page Feedback"
ws_ToEmail = "msummers@great-websights.com"
ws_Redir = "g_thanks.asp"
Dim ws_From
ws_From = Request.Form("emailfield")
Dim ws_Body, ws_fieldName, ws_fieldValue, ws_i
For ws_i = 1 to Request.Form.Count
ws_fieldName = Replace(Request.Form.Key(ws_i),"_"," ")
ws_fieldValue = Request.Form.Item(ws_i)
ws_Body = ws_Body & ws_fieldName & ": " & ws_fieldValue & VbCrLf
Next
If ((InStr(ws_Body,"bcc:") = 0) and InStr(ws_From,"bcc:") = 0) Then
'Set objMail=Server.CreateObject("CDOSYS.Message")
'objMail.Subject=ws_Subject
'objMail.From=Request.Form("emailfield")
'objMail.To=ws_ToEmail
'objMail.TextBody=ws_Body
'objMail.Send
'set objMail=nothing
'Set objCDO = Server.CreateObject("CDONTS.NewMail")
'objCDO.From = ws_From
'objCDO.To = ws_ToEmail
'objCDO.Subject = ws_Subject
'objCDO.Body = ws_Body
'objCDO.Send()
'Set objCDO = Nothing
'-------------------------------------
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = ws_ToEmail
ObjSendMail.Subject = ws_Subject
ObjSendMail.From = ws_From
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = ws_Body
ObjSendMail.Send
Set ObjSendMail = Nothing
Response.Redirect("g_thanks.asp")
'-------------------------------------
End If
End If
If Request.Form("Submit") <> "" and ((Request.Form("MOREcommentfield") <> "Enter More Comments here") or (Request.Form("addressfield")<>"")) Then
ws_Subject = "GWS Spam Report"
ws_ToEmail = "msummers@great-web-sights.com"
ws_Redir = "g_thanks.asp"
Dim ws_Spammer,ws_IP
ws_Spammer = Request.Form("emailfield")
ws_IP = Request.ServerVariables("REMOTE_HOST")
ws_IP = ws_IP & " -- " & Request.ServerVariables("REMOTE_ADDR")
ws_Body = "Spam REPORT" & vbCrLF
ws_Body = ws_Body & "IP = " & ws_IP & vbCrLF
ws_Body = ws_Body & "email = " & ws_Spammer & vbCrLF
ws_Body = ws_Body & "address = " & Request.Form("addressfield") & vbCrLF
ws_Body = ws_Body & "MoreInfo = " & Request.Form("MOREcommentfield") & vbCrLF
ws_Body = ws_Body & "-----------------------------"
'Dim objCDO
'Set objCDO = Server.CreateObject("CDONTS.NewMail")
'objCDO.From = "spammer@great-web-sights.com"
'objCDO.To = ws_ToEmail
'objCDO.Subject = ws_Subject
'objCDO.Body = ws_Body
'objCDO.Send()
'Set objCDO = Nothing
'Response.Redirect("g_thanks.asp")
'ReDim ObjSendMail
'ReDim iConf
'ReDim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = ws_ToEmail
ObjSendMail.Subject = ws_Subject
ObjSendMail.From = ws_From
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = ws_Body
ObjSendMail.Send
Set ObjSendMail = Nothing
Response.Redirect("g_thanks.asp")
'-------------------------------------
End If
%>
Contacting Great Web Sights
