[an error occurred while processing this directive] <% '************************************************************************************************ ' Purpose : To connect database ' Filename : admin_connection.asp ' Author : Kumar Amiya ' Created : 6th March 2002 ' Project Name : Acid-stain.com ' '************************************************************************************************ set con = server.CreateObject ("ADODB.Connection") 'localhost 'con.open "Driver={mySQL}; Server=localhost;" & _ ' "Port=3306;" & _ ' "Database=forum;" ' con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=;Initial Catalog=acidstain;Data Source=ACTIVE" 'con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=balwa;PWD=bsl744;Initial Catalog=balwa;Data Source=203.199.69.119" '''''''''''''''''''''''''''''''''''''''''''REAL''''''''''''''''''''''''''''''''' con.Open "Driver={mySQL}; Server=66.226.14.141;" & _ "Port=3306;" & _ "Database=msboard;" & _ "Uid=arterus;" & _ "Pwd=mag123io" ''''''''removed for local use''''''''''''''''''''''' ' "Provider=MyODBC;" & _ ' "Option=131072;" & _ ' "Stmt=;" & _ %> <%'************************************************************************************************' 'Purpose : To display all Available Forum Topics 'Filename : messageboard.asp ' Author : Kumar Amiya ' Created : 8th March 2002 ' Project Name : Acid-stain.com ' rs.AbsolutePage=cint(CurrentPage) Erased from line 56 on 12/13/03 '************************************************************************************************ %>

The "Decorative Concrete Summit" is coming, Oklahoma City, OK, October 11 - 13, 2006
Do not miss this extraordinary event. Click here for details.

<%if session("loginid") <> "" then %>

<% end if%>


Available Forum Topic:	Messages	Last Update

<% Qry = "select * from acid_forum ORDER BY Forum_Creationdate desc" 'response.write Qry Dim CurrentPage,RowNumber,ctr CurrentPage=Trim(Request("CurrentPage")) 'Response.Write("Currend Page"&CurrentPage&"
") if CurrentPage="" then CurrentPage=1 set rs = Server.CreateObject("ADODB.RecordSet") set rs2 = Server.CreateObject("ADODB.RecordSet") 'response.write Qry rs.PageSize=6 ' con.CursorLocation = 3 rs.Open Qry,con,3 if not rs.EOF and not rs.BOF then 'rs.movefirst RowNumber=0 do while not rs.eof and RowNumber <% RowNumber=RowNumber+1 rs.movenext loop %> " Response.write "" else ' rs.eof %> <% end if %>

<% frid = rs("Forum_Name") url=server.urlencode(frid) Response.write "" Response.write rs("Forum_Name") Response.write "" %>	<%=tot%>	<% if lastdate<>"" then replydate=lastdate replymonth=split(cstr(replydate),"/",-1,1) replydate = replymonth(1) replyyear=replymonth(2) replyfulldate = replydate&" "&monthname(replymonth(0),1)&" "&replyyear response.Write replyfulldate else response.write" -- " end if %>
<% dim prevoption prevoption =0 if CurrentPage > 1 then prevoption=CurrentPage-1 Response.write "" Response.Write "" Response.write" " end if for ctr=1 to rs.PageCount Response.write "" response.write(ctr) Response.write " " next dim nextoption nextoption=0 if cint(CurrentPage) < cint(ctr-1) then nextoption=CurrentPage+1 Response.write " " Response.Write "" Response.write "" end if Response.write "

Forum not found

<%set rs=nothing set rs2=nothing con.close set con=nothing%>

Go to our contractor listing to find the Decorative Concrete Contractor you need for your project:

[Stamped Concrete Contractors] [Acid Stain Contractors] [Concrete Countertops Contractors] [Concrete Overlay Contractors] and [ more].

decosup