<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> GameCatalog.org - Submit Info for the International Game Database <% dim sName, sEmail, sMessage, sSubject, sBody, sWebsite if Request.Form("Action") <> "" then sName = Request.Form("Name") sEmail = Request.Form("Email") sMessage = Request.Form("Message") sWebsite = Request.Form("Website") sAGPC_member = Request.Form("AGPC_member") sGame_title = Request.Form("Game_title") sGame_title_source = Request.Form("Game_title_source") sGame_company = Request.Form("Game_company") sPublisher_address = Request.Form("Publisher_address") sPublisher_item_num = Request.Form("Publisher_item_num") sGame_type = Request.Form("Game_type") sDate_source = Request.Form("Date_source") sDate_copyright = Request.Form("Date_copyright") sDate_patent = Request.Form("Date_patent") sDate_other = Request.Form("Date_other") sCover_description = Request.Form("Cover_description") sCover_image_available = Request.Form("Cover_image_available") sRules_in_game = Request.Form("Rules_in_game") sRules_image_available = Request.Form("Rules_image_available") sContents_image_available = Request.Form("Contents_image_available") sOther_comments = Request.Form("Other_comments") Set oCdoMail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "localhost" .Fields.Item(sConfURL & "smtpserverport") = 25 .Fields.Update end with with oCdoMail .From = "Rick@Tiddlywinks.org" .To = sEmail ' .CC = "someone.else@domain.com" ' .BCC = "someone@anotherdomain.com" end with Dim strBody sBody = sBody & "Submitted to " & Request.ServerVariables("HTTP_HOST") & " at " & Now() & vbCrLf & "

" 'sBody = sBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
" sBody = sBody & "Name" & " : " & " " & Replace(sName,vbCr,"
") & "
" sBody = sBody & "Email" & " : " & " " & Replace(sEmail,vbCr,"
") & "
" sBody = sBody & "Website" & " : " & " " & Replace(sWebsite,vbCr,"
") & "
" sBody = sBody & "AGPC member" & " : " & " " & Replace(sAGPC_member,vbCr,"
") & "
" sBody = sBody & "Game title" & " : " & " " & Replace(sGame_title,vbCr,"
") & "
" sBody = sBody & "Game title source" & " : " & " " & Replace(sGame_title_source,vbCr,"
") & "
" sBody = sBody & "Game company" & " : " & " " & Replace(sGame_company,vbCr,"
") & "
" sBody = sBody & "Publisher address" & " : " & " " & Replace(sPublisher_address,vbCr,"
") & "
" sBody = sBody & "Publisher item #" & " : " & " " & Replace(sPublisher_item_num,vbCr,"
") & "
" sBody = sBody & "Game type" & " : " & " " & Replace(sGame_type,vbCr,"
") & "
" sBody = sBody & "Date source" & " : " & " " & Replace(sDate_source,vbCr,"
") & "
" sBody = sBody & "Date copyright" & " : " & " " & Replace(sDate_copyright,vbCr,"
") & "
" sBody = sBody & "Date patent" & " : " & " " & Replace(sDate_patent,vbCr,"
") & "
" sBody = sBody & "Date other" & " : " & " " & Replace(sDate_other,vbCr,"
") & "
" sBody = sBody & "Cover description" & " : " & " " & Replace(sCover_description,vbCr,"
") & "
" sBody = sBody & "Cover image available" & " : " & " " & Replace(sCover_image_available,vbCr,"
") & "
" sBody = sBody & "Rules in game" & " : " & " " & Replace(sRules_in_game,vbCr,"
") & "
" sBody = sBody & "Rules image available" & " : " & " " & Replace(sRules_image_available,vbCr,"
") & "
" sBody = sBody & "Contents image available" & " : " & " " & Replace(sContents_image_available,vbCr,"
") & "
" sBody = sBody & "Other comments" & " : " & " " & Replace(sOther_comments,vbCr,"
") & "
" sBody = sBody & "
" & Replace(sMessage,vbCr,"
") & "

" sBody = sBody & "" with oCdoMail .Subject = sSubject '.TextBody = .HTMLBody = sBody '.AddAttachment = "C:\Inetpub\wwwroot\attachment.zip" end with oCdoMail.Configuration = oCdoConf oCdoMail.Send response.write "

Your message has been sent

" & sBody & "



" '' Doesn't go back 2 -- response.write "

Back to the previous page.

" Set oCdoConf = Nothing Set oCdoMail = Nothing else %>

Submit Game and Publisher Info!

">

Info About You

Name*
email*
Your website(s) relating to games
Are you a member of the Association of Game & Puzzle Collectors? Yes No

Note: Your email address will  be used only for confirmation of this submission and for any questions regarding it.  See Privacy Notice.

Game Info

Please fill in as much information about the game as you can
*required

Game title*

From:

Game company*
Publisher's address
Publisher's item #:
Type of game*
Date Source of date:

Copyright date

Patent date

Other date
Cover Description

Cover image available? Yes No
Rules

Available in game? Yes No

Rules image available?Yes No
Contents Description

Board/contents image available?Yes No
Other Comments
<% end if %>