<%@LANGUAGE="VBSCRIPT"%> <% Option Explicit 'On Error Resume Next Response.Buffer = True Response.Expires = -1442 %> <% If Len(Request.Form("doit")) > 0 Then Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") Dim strSQL strSQL = "SELECT User_ID FROM Users WHERE User_Email='" & Replace(Request.Form("email"),"'","''") & "'" ' strSQL = "SELECT Users.*,Registrations.Serial_Number FROM Users,Registrations WHERE Users.User_ID=Registrations.User_ID AND User_Email='" & Replace(Request.Form("email"),"'","''") & "'" With objRS .ActiveConnection = connSLBUsers_STRING .Source = strSQL .Open() End With Dim strRedirect Dim strPreviousSerial If (objRS.BOF And objRS.EOF) Then Dim rsTest Set rsTest = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Registrations WHERE Serial_Number='" & LCase(Request.Form("serial")) & "'" 'Test to make sure we're not creating duplicate registrations With rsTest .ActiveConnection = connSLBUsers_STRING .Source = strSQL .Open() End With If Not (rsTest.BOF And rsTest.EOF) Then 'This serial number has already been registered Response.Redirect("register_result.asp?error=dupeSerial") End If rsTest.Close() strRedirect = "register_new.asp" strRedirect = strRedirect & "?serial=" & LCase(Request.Form("serial")) & "&cpuid=" & UCase(Request.Form("cpuid")) & "&email=" & LCase(Request.Form("email")) Else 'strPreviousSerial = "" 'strPreviousSerial = objRS("Serial_Number") 'alert("Name: " & objRS("Last_Name") & " Previous Serial No: " & strPreviousSerial ) strRedirect = "register_user.asp" strRedirect = strRedirect & "?serial=" & LCase(Request.Form("serial")) & "&cpuid=" & UCase(Request.Form("cpuid")) & "&email=" & LCase(Request.Form("email")) 'strRedirect = strRedirect & "?serial=" & LCase(Request.Form("serial")) & "&cpuid=" & UCase(Request.Form("cpuid")) &_ ' "&email=" & LCase(Request.Form("email")) & "&serial_reg=" & strPreviousSerial End If objRS.Close() Set objRS = nothing Response.Redirect(strRedirect) End If %> XStream Media Video Streaming Solutions - Registration
  XSTREAM MEDIA  
 
 
 
   
 


XStream Media Product Registration

 

Under construction. Come back and visit the completed page soon!

 

 

<% Response.End() %>