%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'session("user")
'if session("user")="" or isnull(session("user")) then
' response.Redirect("default.asp")
' end if
%>
<%
dim objConn,objRs,sql,strSql,strSql1,Rs
set objConn = server.CreateObject("Adodb.Connection")
set Rs = server.CreateObject("Adodb.Recordset")
set objRs = server.CreateObject("Adodb.Recordset")
objConn.Open ConnString
'objConn.Open ConnString
strSql1="select * from tblNews"
set Rs= objConn.execute(strSql1)
'if not Rs.eof or not Rs.bof then
'session("user")=Rs.fields("adminName")
'session("custemail")=Rs.fields("email")
'session("idCustomer")=Rs.fields("idcustomer")
' response.write "
|
|
|
 |
| |
Company
News
|
| |
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
|
|
|
 |
|
 |
QMB
Builders Mart . © 2009. All right reserved. Website designed
by xesojay.com |
| |
|