Contact Great Web Sights about an
effective presence on the web
%@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 %>
