Datacheck Solutions :: ASP

Script Snippets
Back

Database Array

<%@ Language=VBScript %>



<%
   	DIM vArray
    	DIM i
    	
    	SUB FillArray
    	
DIM adoCN
    		DIM strSQL
    		strSQL = "SELECT * FROM Vspace"
    		SET rsGet= server.CreateObject("ADODB.Connection")
    		WITH rsGet
    			.ConnectionString = MM_conn_STRING
    			.CursorLocation=3
    			.Open
    			vArray = rsGet.Execute(strSQL).GetRows
    		END WITH
    		SET rsGet=NOTHING

END SUB
    	response.write "<HTML>"
    	response.write "<HEAD>"
    	response.write "<META NAME='GENERATOR' Content='Microsoft Visual Studio 6.0'>"
    	response.write "</HEAD>"
    	response.write "<BODY>"
    	response.write "<H1>User Directory</H1>"
    		
    	FillArray()
    	
    	
    	Response.Write "<TABLE border=1 cellPadding=1 cellSpacing=1 ><TH colspan=2>User Name</TH><TH colspan=2>First Name</TH>"
    	Response.Write "<TH colspan=2>Last Name</TH><TH colspan=2>Email</TH><TH colspan=2>Website</TH>"
    	for i = 0 to UBOUND(vArray,2)
    		Response.Write "<TR>"
    		Response.Write "<TD colspan=2>" & vArray(0,i) & "</TD>"
    		Response.Write "<TD colspan=2>" & vArray(1,i) & "</TD>"
    		Response.Write "<TD colspan=2>" & vArray(2,i) & "</TD>"
    		IF instr(1,vArray(3,i),"@") THEN
    			Response.Write "<TD colspan=2><A href='mailto:" & vArray(3,i) & "'>" & vArray(3,i) & "</A></TD>"
    		ELSE
    			Response.Write "<TD colspan=2>" & vArray(3,i) & "</TD>"
    		END IF
    		IF INSTR(1,vArray(4,i),"http://") THEN
    			Response.Write "<TD colspan=2><A href='" & vArray(4,i) & "'>" & vArray(4,i) & "</A></TD>"
    		ELSE
    			Response.Write "<TD colspan=2>" & vArray(4,i) & "</TD>"
    		END IF
    		Response.Write "</TR>"
    	next 
    	Response.Write "</TABLE></BODY></HTML>"
    %>