%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Session.LCID = 1033
Err.Clear
strErrorUrl = "thanks.asp"
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"
fp_conn.Open Application("feedback_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(2)
Dim arFormDBFields0(2)
Dim arFormValues0(2)
arFormFields0(0) = "submit"
arFormDBFields0(0) = "submit"
arFormValues0(0) = Request("submit")
arFormFields0(1) = "Feedback"
arFormDBFields0(1) = "Feedback"
arFormValues0(1) = Request("Feedback")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
End If
FP_SaveFieldToDB fp_rs, Now, "Timestamp"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
End If
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
Response.Redirect "thanks.asp"
End If
End If
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
%>
Trinomic - About
|
|
New Page 1
This site is mainly created to preserve and collect
the work that was done by the C64 group Trinomic and is created and
maintained by Rolf Colmer (Magic of (ex) Trinomic). Some help and
releases were provided by Emiel van Heuvelen (Slide of (ex)Trinomic) As
i was only a member of Trinomic for about 3 years there are still much
releases to add that i don't have on this moment. At this time
this page is in it's starting phase so please keep that in mind while
browsing. If you find errors or have any comments don't hesitate to drop
me a message using the Quik Feedback section on the right.
I have no intention to create a huge gamebase or demo collection!
I might add some none Trinomic releases because i found them hard to
find on the net and in the databases behind this site you can find much
of my own C64 collection.
Have fun!
The C64 Banner Exchange
|
Picture of the
week
|
Sound of the
week
"Piano Fun-Cobra"
Clicking on the
Start/Stop button will open a new Window. |
|
|