I would very much apreciate if some one could help me with this code.
It is an ASP page that is supposed to INSERT data in an ACCESS database.
The table is simple;
Usuario_ID
UsuarioUsername
UsuarioEmail
The code of this page is;
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/ConnbrainPowered.asp" -->
<%
if(Request.QueryString("username"
<> ""
then Command1__NKusername = Request.QueryString("username"
if(Request.QueryString("email"
<> ""
then Command1__NKemail = Request.QueryString("email"
%>
<%
set Command1 = Server.CreateObject("ADODB.Command"
Command1.ActiveConnection = MM_ConnbrainPowered_STRING
Command1.CommandText = "INSERT INTO usuario (UsuarioUsername, UsuarioEmail) VALUES (" + Replace(Command1__NKusername, "'", "''"
+ ", " + Replace(Command1__NKemail, "'", "''"
+ "
"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
%>
Would someone please tell me why it does not work?
Many, many, many thanks
Nicolas
![[yinyang] [yinyang] [yinyang]](/data/assets/smilies/yinyang.gif)
It is an ASP page that is supposed to INSERT data in an ACCESS database.
The table is simple;
Usuario_ID
UsuarioUsername
UsuarioEmail
The code of this page is;
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/ConnbrainPowered.asp" -->
<%
if(Request.QueryString("username"
if(Request.QueryString("email"
%>
<%
set Command1 = Server.CreateObject("ADODB.Command"
Command1.ActiveConnection = MM_ConnbrainPowered_STRING
Command1.CommandText = "INSERT INTO usuario (UsuarioUsername, UsuarioEmail) VALUES (" + Replace(Command1__NKusername, "'", "''"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
%>
Would someone please tell me why it does not work?
Many, many, many thanks
Nicolas
![[yinyang] [yinyang] [yinyang]](/data/assets/smilies/yinyang.gif)