%@ Language=VBScript %> <%Response.Buffer =true %> <% set dbconn = server.CreateObject ("ADODB.Connection") dbconn.Provider = "sqloledb" 'ProvStr = "Server=eserver;Database=agency;UID=" & session("sqlusrloginname") & ";PWD=" & session("sqlusrpassword") & ";" ProvStr = "Server=eserver;Database=agency;UID=jothervisit;PWD=reject@5168;" ' ProvStr = "Server=eserver;Database=webdb;UID=webrowser1;PWD=feb5473itn;" dbconn.Open ProvStr Set rs_r =server.createobject("ADODB.recordset") Set rs_temp =server.createobject("ADODB.recordset") mys="select * from localag " 'rs_r.Open mys,dbconn,adOpenKeyset,1 'rs_temp.Open "select district from tbl_ag where expire_date>='" & date() & "' and status='V' group by district order by district ",dbconn,adOpenKeyset,1 %>
|
|
|||||||||||||||||||||||||||||