<%

'-----------------------------------------------------------------------'

	function getConnection()
	
	Dim con
	dim rs 

	DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
	DSNtemp=DSNtemp & "DBQ=" & server.mappath("Ecom.mdb")
	set con=Server.createObject("ADODB.Connection")
	con.open DSNtemp
	
	set getConnection=con
	
	end function

'-----------------------------------------------------------------------'

	function showproduct(PId,Name,Sd,si,price)
	
	Response.write("	<table width=250 border=1>"")
	Response.write("		<tr>")
	Response.write("		
	<td valign=top><font face=verdana size=2><a href=product.asp?id="+PId+">")
	Response.write(Name)
	Response.write("			</a>")
	Response.write("			<br><br><br>")
	Response.write(Sd)
	Response.write("			</font></td>")
	Response.write("			<td valign=top>")
	Response.write("		
	<a href=product.asp?id="+PId+"><img src="+si+" border=0></a><br>")
	Response.write("$"+price)
	Response.write("			</td>")
	Response.write("		</tr>")
	Response.write("		</table>")		
	
	end function

'-----------------------------------------------------------------------'

%>"