iEntry 10th Anniversary
Announcements
Contact
Usefull Programming Code
[MySQL Database Connection and Recordset (DNS-LESS Connection)]
<%
Dim connectionString, conn, rs
connectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=mydatabase; OPTION=4; UID=root;PASSWORD=mypassword;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open(connectionString)
Set rs = conn.Execute("SELECT * FROM userlist")
%>
Another way to do it..
Dim connectionString, rs, conn
connectionString, = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=mydatabase; OPTION=4; UID=root; PASSWORD=mypassword;"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open(connectionString)
rs.Open "SELECT * FROM userlist", conn,3,3
or try this one..
<%
dim connectionString,rs
connectionString= "DRIVER={MySQL ODBC 3.51 Driver}; SERVER = localhost; DATABASE = mydatabase; OPTION=4; UID=root; PASSWORD=mypassword;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM userlogin", connectionString, 1, 3
%>
[MSSQL Database Connection and Recordset (DNS-LESS Connection)]
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Customers", conn
%>
[Season Variable User Validation]
<%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
If Session("name") = "" Then
Response.Redirect("YouShouldLoginToViewThisPage")
End If
%>
[Zebra Row Color]
<%
RowCount = 0
While ((Repeat1__numRows <> 0) AND (NOT YourRecordSet.EOF))
If (RowCount Mod 2)=0 Then RowColour = "#B3BBC1" Else RowColour = "#8D98A3"
RowCount = RowCount + 1
%>
<tr style="background-color:<%=RowColour%>">
Total Comments 0
Comments
Recent Blog Entries by Monie
- ASP Programming Tips and Technique (October 26th, 2007)
- Usefull Programming Code (October 17th, 2007)
