SkullBoy Sympathy Notes | Read other notes »

<% If request("mode") = "add" then If Trim(Request.Form("ImageField")) = Session("ImageNo") Then format = request("gbComments") format = Replace(format, vbCrLf, "
") format = Replace(format, "'", "’") SqlStmt = "INSERT INTO gb (gbName, gbEmail, gbTitle, gbDate, gbComments, gbStatus) VALUES ('" & trim(request("gbName")) & "', '" & trim(request("gbEmail")) & "', '" & trim(request("gbTitle")) & "', '" & trim(request("gbDate")) & "', '" & format & "', '0');" 'response.write SqlStmt conn.Execute(SqlStmt) %> Thank you! We appreciate the genuine concern that you've shown. We'll review your comments and post them on the site soon. Click here to see what others have been saying about poor little SkullBoy.

<% Else %> OOPS! You've submitted some incorrect information... Please try again.

<% End If %> <% Else %> Will you Cry for SkullBoy? Just a few kind words is all that we ask. Complete the form below and you'll be added to our ever growing SkullBoy support group. Every little bit helps.

Name (or alias)


Email address


Title/Heading


Your sympathy note


<% Dim ImageNo, RndNum Randomize Timer ImageNo = CStr(Fix(99999 * Rnd)) 'Here you can set the max number of images to be shown, ie. 99999999 Session("ImageNo") = ImageNo 'Session variable of the final number to be shown For i = 1 To Len(ImageNo) RndNum = 99999 * Rnd 'Random number to avoid caching ' here, 'img' shows which number should be displayed, we write the image tag ' to get the image from asp page. Response.Write "" Next %> Enter number shown (confirmation):


<% End If %>


to read what other people are saying.

© <%= year(now) %> SkullBoy Worldwide, Inc. All rights reserved.     
Website by Antidote X