<%
dim con, ipaddress, videoname, frompage, fromapp, loggedfrom, timeofday, constr, sqlstr
Set con = Server.CreateObject("ADODB.Connection")
ipAddress = Request.Form("ipAddress")
videoName = Request.Form("videoName")
fromPage = Request.Form("fromPage")
fromApp = Request.Form("fromApp")
loggedFrom = Request.Form("loggedFrom")
timeOfDay = Now
conStr = "Provider=SQLOLEDB.1;Password=xxxxxxx;Persist Security Info=True;User ID=clink;Initial Catalog=xxxxx;Data Source=xxxxx"
con.Open conStr
sqlstr = "Insert into dbo.tbl_Prospect_Video_Tracking(IPAddress,videoName,fromPage,fromApp,loggedFrom,dtViewed)values('" & ipAddress & "','" & videoName & "','" & fromPage & "','" & fromApp & "','" & loggedFrom & "','" & timeOfDay & "')"
con.Execute(sqlstr)
con.close
%>
First of all you appear to be using Javascript as your server side scripting language, which is perfectly valid, however I've changed it to VBScript here because I'm a lot more familiar with the syntax.
You're using "set" do declare string variables, which looks wrong. When you use request.form you only use the name of the form field, and you don't need to use a recordset as in this context you aren't retrieving data with a select query