%'@ Language=VBScript %> <% response.expires=0 %> <% mydebugger="no" %> <% sql="SELECT * FROM tblOwner;" '-----OPEN CONNECTION AND RECORDSET OBJECTS----- OpenDatCnn() Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, objDatCnn rs.movefirst vaddress=rs.fields.item("Address") vcity=rs.fields.item("City") vstate=rs.fields.item("State") vzip=rs.fields.item("Zip") vphone=rs.fields.item("Phone") vfax=rs.fields.item("Fax") vemail="Email Us" vcolor1=rs.fields.item("Color1") vcolor2=rs.fields.item("Color2") vdate=(Date) Select Case Trim(Month(vdate)) case 1 vmonth="readingjan.asp" case 2 vmonth="readingfeb.asp" case 3 vmonth="readingmar.asp" case 4 vmonth="readingapr.asp" case 5 vmonth="readingmay.asp" case 6 vmonth="readingjun.asp" case 7 vmonth="readingjul.asp" case 8 vmonth="readingaug.asp" case 9 vmonth="readingsept.asp" case 10 vmonth="readingoct.asp" case 11 vmonth="readingnov.asp" case 12 vmonth="readingdec.asp" End Select %>
|
|||||||||
|
|
||||||||