<%
'*****************************************************************
' VP-ASP 6.50
' May 16, 2003
'Inserts a record into the affiliate og table
'****************************************************************
Sub UpdateAffiliatelog (affiliateid,affiliatedirecturl,affiliatecookie,dbcon)
If getconfig("affbypasslog")="Yes" then exit sub
dim usql
dim affiliatereferrer
affiliatereferrer=request.servervariables("HTTP_REFERER")
setsess "testref", affiliatereferrer
usql="Insert into affiliatelog(affid,affdate,afftime,affdirecturl,affreferrer,affcookie)"
usql=usql & " Values("
usql=usql & affiliateid
usql=usql & "," & datedelimit(date() )
'VP-ASP 6.09 - added formatdatetime
usql=usql & ",'" & formatdatetime(time(),vbshorttime) & "'"
usql=usql & "," & delimitfield(affiliatedirecturl)
usql=usql & "," & delimitfield(affiliatereferrer) 
usql=usql & "," & delimitfield(affiliatecookie) 
usql=usql & ")"
dbcon.execute(usql)
end sub
function delimitfield(fieldvalue)
	if fieldvalue="" or isnull(fieldvalue) then
		delimitfield="NULL"
	else
		delimitfield="'" & fieldvalue & "'"
	end if
end function
%>