home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / test.asp < prev    next >
Text File  |  2004-09-27  |  674b  |  29 lines
  1. <!--#include file = "include\adovbs.inc"-->
  2. <%
  3.  
  4.     dim con
  5.     dim StrPath,DBPath,Strsql,rs
  6.     
  7.     set con = server.CreateObject("ADODB.Connection")
  8.     'DBPath =  "C:\desktop\Mss\maniindia"
  9.     'D:\webroot\208\goodwill\sample.asp
  10.     DBPath = "D:\webroot\214\maniindia"
  11.     con.ConnectionString = "DSN=maniindia;UID=;PWD=;DATABASE=" & DBPath & ";"
  12.  
  13.     con.Open
  14.     
  15.     
  16.     Strsql = "SELECT * FROM user_count_gms"
  17.         
  18.         set rs = server.CreateObject("adodb.recordset")
  19.         set rs = con.Execute(Strsql)
  20.         
  21.     Response.Write "Count=" & rs.Fields(0)
  22.     Response.Write "<BR>"
  23.             
  24.     StrPath = server.MapPath(Request.ServerVariables("path_info")) 
  25.     Response.Write StrPath
  26.     Response.End
  27.  
  28.     
  29. %>