<% '--------Initiliasing variables------------------- Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsSearch = server.createobject("ADODB.RECORDSET") Set Rschangestat = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLSearch = "select * from forex" '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 %> View Forex
<%do while not RsSearch.eof%> <%RsSearch.movenext%> <%loop%>
 

View all Exchange Rates

 
     
Currency Exchange Rate  
<%=RsSearch("CurName")%> " size="20" value="<%=RsSearch("CurRate")%>"> &Cur=<%=RsSearch("CurName")%>">Change