<% ' 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 Err.Clear strErrorUrl = "" 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("win_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(3) Dim arFormDBFields0(3) Dim arFormValues0(3) arFormFields0(0) = "sc" arFormDBFields0(0) = "sc" arFormValues0(0) = Request("sc") arFormFields0(1) = "email" arFormDBFields0(1) = "email" arFormValues0(1) = Request("email") arFormFields0(2) = "name" arFormDBFields0(2) = "name" arFormValues0(2) = Request("name") 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 "Thankyou.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Contest
 
 
Streaming Video?
Webcams come in many flavors. You can simply ftp images at set intervals to a web page (say every 15 seconds) and call it a webcam. Here at Uncle Sam's we also stream live video from our servers which means you get fast frame rates. 

We will show you what is needed, all the options available and get you the product you need to stream video over the internet like the pros!
 
Uncle's Club!
 Coming soon! This will be the private and un-moderated area for the Uncle's adult webcam users to share their cams, chat and see the world!
 

 
 

Enter the Uncle's NEW Contest!


 Summer 2006 Prize: Logitech QuickCam Web cam
Winners are drawn randomly from the list of entries each month.
You will be notified by email if you are a winner.

  1. Enter your information below. If you have a "Secret Code from the Uncle" please enter it. If you do not have a secret code you can still enter.
     
  2. Secret codes are distributed on the back of our business cards only. If you do not have a business card with a code on it don't worry, you are still eligible in our contest. Secret code entries have the added bonus of being randomly selected for "instant winner" prizes as well as the current monthly contest. To obtain a code by mail click here for instructions.
     
Code 

optional
Name  required
Email  required

If you do not have a code and would like one, click here.

  • You will be notified by email if you are chosen as a winner. Be sure you give us a valid email.
     

  • Only one entry per email per month will be considered. Other entries from the same email address in the same month will be discarded and you may be disqualified.

 
 

 
Copyright © [2002] [UncleSamsCams.com]. All rights reserved