<% 'Email Function Sub sendRegularMailMessage_disc (messageTo, messageFrom, messageSubject, messageBody) On Error Resume Next Dim mailMessage Set mailMessage = CreateObject ("CDONTS.NewMail") if Not mailMessage is Nothing then mailMessage.From = messageFrom mailMessage.To = messageTo mailMessage.Subject = messageSubject mailMessage.Body = messageBody mailMessage.Send Set mailMessage = Nothing end if End Sub 'Form-processing code 'PPO - Dynamically derived the DSN - rewritten from ASPForums JScript example Dim currentPath, pathElements, filename, lengthOfFilename, guestbookDirectory, DBPath, DSN currentPath = Cstr(Request.ServerVariables("PATH_TRANSLATED")) pathElements = Split(currentPath, "\") filename = Cstr(pathElements(UBound(pathElements))) lengthOfFilename = Len(filename) guestbookDirectory = Left(currentPath,(Len(currentPath) - lengthOfFilename)) DBPath = guestbookDirectory + "guestbook.mdb" 'changed 3.51 to 4.0 to try to get working as per Aspforums general /showmessage.asp?messageID=4146 DSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + DBPath 'End DSN code. Dim cxnome ' the variable of the name of the sender Dim cxemail ' the variable of the email Dim cxmensagem ' and the variable of the message Dim OK ' the one I use to control errors 1 Ok, 0 theres errors.... 'Added by PPO Dim dictErrors, ct , workingText 'hold error messages in here Const cBadEmail = "This does not appear to be a valid e-mail address." Const cBadName = "Please enter a name." Const cBadMessage = "Please enter a message." Set dictErrors = Server.CreateObject("Scripting.Dictionary") ct = 0 'I removed cookie line below --RH AND mailsend line as am disabling page 'const cCookieName = "RHELLCFG" 'shares a cookie with ASPForums 'const cAdminEmail = "'Roy Suggs' " 'End of PPO additions Set Conn = Server.CreateObject("ADODB.Connection") Conn.open DSN '"DSN=guestdb;" ' I used the guestdb DSN Set rs = Server.CreateObject("ADODB.Recordset") OK = 1 If Request.Form("B3") <> "" Then 'PPO - delete a message Conn.Execute("DELETE FROM guestbook WHERE ID = " & Request.Form("DeleteMessageID")) ElseIf Request.Form("B1") <> "" Then 'add a new message ' You can see my article about e-mail validation , and understand this lines bellow If Len(Request.form("cxemail")) > 0 and Len(Request.form("cxemail")) < 5 Then OK = 0 Call dictErrors.Add(ct, cBadEmail) ct = ct + 1 Else If InStr(1, Request.form("cxemail"), "@", 1) < 2 Then OK = 0 Call dictErrors.Add(ct, cBadEmail) ct = ct + 1 Else If InStr(1,Request.form("cxemail"), ".", 1) < 4 Then OK = 0 Call dictErrors.Add(ct, cBadEmail) ct = ct + 1 End If End If End If if len(Request.form("cxnome")) < 1 then ' I control the name, to ensure it isn't blank OK = 0 Call dictErrors.Add(ct, cBadName) ct = ct + 1 end if if len(Request.form("cxmensagem"))<= 1 then ' and do it with the message too OK = 0 Call dictErrors.Add(ct, cBadMessage) ct = ct + 1 end if if OK = 1 then ' if there is no errors lets put it in the DB %> R. Hell Merchandise Service Comments
<% If OK = 0 Then %> <% For each ct in dictErrors Response.Write("") Next %>
The following errors occurred while posting.
Please return to comment form to correct them & re-post your message.

    ") Response.Write("
  • " & dictErrors.Item(ct)) Response.Write("
<% dictErrors.RemoveAll Set dictErrors = nothing End If %>

BACK to CUZ Editions catalog
BACK to Hell Audio
BACK to Hell books in print
BACK to rare Hell books
BACK to Hell visuals

R. Hell Merchandise Service Comments

This page is for the public posting of comments regarding our service by people who've ordered merchandise from us. It's meant to reassure those cynical communists who may be wary of sending money to handsome strangers. No, really, we offer this stuff, a lot of which is hard to find anywhere else, as much to get it out to those who're interested, and to generate good will, as to make money (we charge as little as possible for the commercially distributed things) -- but it doesn't make much sense if people are too nervous to order. We're very grateful for all honest comments. Please don't waste space with jive though. (We'll remove the message if you do.) E-mail addresses must be verifiable.

Please note: We've disabled this page for new comments until further notice, as we've been inundated by spam from spider bots advertising gambling and porn websites. To protect our customers from such spam, we've now also removed the display of their email addresses. We hope and believe all the indications at the site will give you confidence in the level of our service. Thank you.

Please address any questions to orders followed by @ followed by richardhell.com

<%While Not rs.EOF ' at this time we will put all the messages entered in ' the table%> <% rs.MoveNext wend rs.close conn.Close 'everything is done ... so lets clean the fields in the form If OK = 0 Then 'Use values from previous page, since post was unsuccessful cxnome = Request.Form("cxnome") cxemail = Request.Form("cxemail") cxmensagem = Request.Form("cxmensagem") 'Else 'Draw values out of Cookie use by RHell forum, if possible 'I removed cookie stuff --RH 'cxnome = CStr(Request.Cookies(cCookieName)("Fullname")) 'cxemail = CStr(Request.Cookies(cCookieName)("Email")) End If %>
<%=rs("message")%> <% If Session("SecurityOK") = 1 Then %>
" name="DeleteMessageID">
<% End If %>

by  <%=rs("nameas")%> <%=rs("date")%>

Merch Links Site Index Forum Lyrics 1st Page Bio Core Updates