custtblgetdata.inc

能实现用户注册

<%
'on error resume next
'open customer table and get all their data into txt fields

Tbl="tbl_Customer."
TblShip="tbl_CustomerShipTo."

sSQL="SELECT "
sSQL=sSQL & Tbl & "CustomerID, "
sSQL=sSQL & Tbl & "s_CompanyName, "
sSQL=sSQL & Tbl & "s_FirstName, "
sSQL=sSQL & Tbl & "s_LastName, "
sSQL=sSQL & Tbl & "s_Phone, "
sSQL=sSQL & Tbl & "s_Address, "
sSQL=sSQL & Tbl & "s_Address2, "
sSQL=sSQL & Tbl & "s_City, "
sSQL=sSQL & Tbl & "s_State, "
sSQL=sSQL & Tbl & "s_Zip, "
sSQL=sSQL & Tbl & "s_Country, "
sSQL=sSQL & Tbl & "s_Email, "
sSQL=sSQL & Tbl & "y_TaxExempt, "
'sSQL=sSQL & Tbl & "CurrencyID "
sSQL=sSQL & Tbl & "PrefShipAddressID, "
sSQL=sSQL & TblShip & "s_ShipToLastName, "
sSQL=sSQL & TblShip & "s_ShipToFirstName, "
sSQL=sSQL & TblShip & "s_ShipToAddress, "
sSQL=sSQL & TblShip & "s_ShipToAddress2, "
sSQL=sSQL & TblShip & "s_ShipToCity, "
sSQL=sSQL & TblShip & "s_ShipToState, "
sSQL=sSQL & TblShip & "s_ShipToZip, "
sSQL=sSQL & TblShip & "s_ShipToCountry, "
sSQL=sSQL & TblShip & "ShipViaID "
sSQL=sSQL & "FROM tbl_Customer "
sSQL=sSQL & "INNER JOIN tbl_CustomerShipTo ON (tbl_Customer.PrefShipAddressID = tbl_CustomerShipTo.ShipID) AND (tbl_Customer.CustomerID=tbl_CustomerShipTo.CustomerID) "
sSQL=sSQL & "WHERE tbl_Customer.CustomerID=" & CustomerID
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sSQL, conn, 3, 3 'read
if (RS.BOF and RS.EOF) then
	rows=0
else
	RS.movelast
	rows=RS.recordcount
	RS.movefirst

	s_CompanyName=RS("s_CompanyName")
	s_FirstName=RS("s_FirstName")
	s_LastName=RS("s_LastName")
	s_Address=RS("s_Address")
	s_Address2=RS("s_Address2")
	s_City=RS("s_City")
	s_State=RS("s_State")
	s_Zip=RS("s_Zip")
	s_Country=RS("s_Country")
	s_Phone=RS("s_Phone")
	s_Email=RS("s_Email")
	y_TaxExempt=RS("y_TaxExempt")
	if isnull(RS("y_TaxExempt")) then y_TaxExempt=0
	s_ShippingLastName=RS("s_ShipToLastName")
	s_ShippingFirstName=RS("s_ShipToFirstName")
	s_ShippingAddress=RS("s_ShipToAddress")
	s_ShippingAddress2=RS("s_ShipToAddress2")
	s_ShippingCity=RS("s_ShipToCity")
	s_ShippingState=RS("s_ShipToState")
	s_ShippingZip=RS("s_ShipToZip")
	s_ShippingCountry=RS("s_ShipToCountry")
	ShipViaID=RS("ShipViaID")
	'CurrencyID=RS("CurrencyID")
end if
RS.close
set RS=nothing
conn.close
set conn=nothing
%>