apexinternet
Programmer
I need to be able to code a full sql/database application which normally I would code in an .asp document..but in an html...
I thought about vbscript but am not sure if it would work
the asp code looks like this..but this will not run in an html document.
Please help if you can.
<%
sqls2="select * from siteinfo" ' choose all site global info
sqls="SELECT * from sites" ' choose all sites
set conn=Server.CreateObject("ADODB.Connection"
' create database connection
conn.open "dsn=newdriverapps"
set rs=conn.execute(sqls) ' execute scripts
set rs2=conn.execute(sqls2)
findquery="select * from sites where id="&rs2("currentsiteid"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
set rs3=conn.execute(findquery)
cursite=rs2("currentsiteid"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
if rs3("id"
<rs2("totallinks"
then cursite=cursite+1 ' if current url is too high go back to 1
if rs3("id"
=rs2("totallinks"
then
cursite=1
end if
response.write "id="&rs3("id"
& "* totallinks="&rs2("totallinks"
&" * currentsiteid="&rs2("currentsiteid"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
'set rs4=conn.execute("update siteinfo set currentsiteid=1"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
set rs4=conn.execute("update siteinfo set currentsiteid="&cursite)
currenturl=rs3.Fields("siteurl"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
set rs=nothing
set rs2=nothing
set rs4=nothing
set conn=nothing
%>
Christopher Norris
Director, IS/IT Development/Application Engineering
Evision Marketing Group L.L.C.
God is GOOD!
I thought about vbscript but am not sure if it would work
the asp code looks like this..but this will not run in an html document.
Please help if you can.
<%
sqls2="select * from siteinfo" ' choose all site global info
sqls="SELECT * from sites" ' choose all sites
set conn=Server.CreateObject("ADODB.Connection"
conn.open "dsn=newdriverapps"
set rs=conn.execute(sqls) ' execute scripts
set rs2=conn.execute(sqls2)
findquery="select * from sites where id="&rs2("currentsiteid"
set rs3=conn.execute(findquery)
cursite=rs2("currentsiteid"
if rs3("id"
if rs3("id"
cursite=1
end if
response.write "id="&rs3("id"
'set rs4=conn.execute("update siteinfo set currentsiteid=1"
set rs4=conn.execute("update siteinfo set currentsiteid="&cursite)
currenturl=rs3.Fields("siteurl"
set rs=nothing
set rs2=nothing
set rs4=nothing
set conn=nothing
%>
Christopher Norris
Director, IS/IT Development/Application Engineering
Evision Marketing Group L.L.C.
God is GOOD!