<%@ Language=VBScript %> <% set cn = Server.CreateObject("ADODB.Connection") cn.ConnectionTimeout = 6000000 cn.CommandTimeout = 6000000 cn.Open "DSN=Kidsnet_Parent;uid=sa;PWD=sgmkj;APP=ASP Script;DATABASE=Kidsnet" Set rs = Server.CreateObject("ADODB.Recordset") rs.MaxRecords = 1 sql = "select reg from serialz where parentid is null and prefix = 'trial' order by id" rs.Open sql,cn Response.Redirect "register1.asp?prefix=trial&serial=" & rs("reg") %>