<%@LANGUAGE="VBSCRIPT"%> <% Dim rsProduct__MMColParam rsProduct__MMColParam = "1" If (Request.QueryString("ID_product") <> "") Then rsProduct__MMColParam = Request.QueryString("ID_product") End If %> <% Dim rsProduct Dim rsProduct_numRows Set rsProduct = Server.CreateObject("ADODB.Recordset") rsProduct.ActiveConnection = MM_connNWR_STRING rsProduct.Source = "SELECT * FROM products WHERE ID_product = " + Replace(rsProduct__MMColParam, "'", "''") + "" rsProduct.CursorType = 0 rsProduct.CursorLocation = 2 rsProduct.LockType = 1 rsProduct.Open() rsProduct_numRows = 0 %> NowhereRoad - Registration

<%=(rsProduct.Fields.Item("product_title").Value)%>

Copyright 2005 Lloyd P. Rieber


Registration - Preliminary

Please enter your email address:

Your email will be checked to see if it is already in the database before asking you to complete the full registration form.

Note: I do not give or sell my customer databases to anyone. I use this information to personally keep track of my supporters and to report summary data to my university administrators. I occasionally email my supporters with news of updates and new products.


"> ">

<% rsProduct.Close() Set rsProduct = Nothing %>