<%
name=request.querystring("Name")
mail=request.querystring("Mailid")
cat=Request.querystring("ret_max")
Response.Write(cat)
dim con,rs,db
ConnectionString="DRIVER=org.gjt.mm.mysql.Driver;URL={****:m ysql://mysql.gocampingireland.com/********};uid=********;pwd=********;"
set con=server.createobject("adodb.connection")
con.open(ConnectionString)
set rs=server.createobject("adodb.recordset")
'con.connectionstring="Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/data/camping.mdb")
'con.open
'con.execute("insert into subscription(name,mail,category) values('"&name&"','"&mail&"','"&cat&"')")
con.execute("insert into subscription(name,mail,category) values('"&name&"','"&mail&"','"&cat&"')")
con.close
set con=nothing
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<center><h2><font color="crimson"><b>Your Mail Id Has Been Added</b></font></h2></center>
<P> </P>
</BODY>
</HTML>
MySQL access
)
Reply With Quote
