<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
DIM mySQL, objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
mySQL = "Select * FROM Legal Where Id = 1"
objRS.Open mySQL, objConn
Dim strLicenseAgreement
strLicenseAgreement = objRS("LicenseAgreement")
If inStr(strLicenseAgreement, vbCrLf) Then
strLicenseAgreement = Replace(strLicenseAgreement, vbCrLf, "
")
End If
%>
Disclaimer
text="#<%= strText %>" link="#<%= strLink %>" vlink="#<%= strVLink %>" alink="#<%= strALink %>">
<%=strMyCoName%> Legal Agreement
(close this window to continue check out)
<%= strLicenseAgreement %>
(close this window to continue check out)