|
 |
access_asp thread: What is wrong MS Access
Message #1 by "Eduardo Porcel" <eporcel@l...> on Thu, 31 Oct 2002 00:22:23
|
|
I can not add new records ,
can anybody help me?
My code
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include file="DataBaseConnection.asp"-->
<%
' Declaracion de variables
Dim strReferer
Dim intPos
strReferer= Request.ServerVariables("HTTP_Referer")
intPos= Instr(strReferer, "?")
If intPos > 0 Then strReferer= Left(strReferer, intPos -1 )
' Checamos si los datos que requerimos se encuentran
if (Trim(Request.FORM("NombPais")) <> "") And (Trim(Request.FORM
("CveAsignada"))<>"")And (Trim(Request.FORM("Zona"))<>"") then
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "CveZona", Conn, adOpenDynamic, adLockPessimistic
objRS.AddNew
objRS.fields("NOMPAIS")="PRUEBA1"
objRS.fields("CLAVE")="PRUEBA2"
objRS.fields("ZONA")="PRUEBA3"
objRS.Update
objRS.Close
Conn.Close
Set Conn = nothing
strReferer="AltaInfo.asp"
Response.Redirect strReferer & "?Posted=TRUE"
Else
strReferer="AltaInfo.asp"
Response.Redirect strReferer & "?Posted=FALSE"
End if
%>
Message #2 by "Ken Schaefer" <ken@a...> on Thu, 31 Oct 2002 12:24:04 +1100
|
|
Where is <% Option Explicit %>?
Also, use an SQL INSERT statement to add new records to a database, not the
recordset object.
Cheers
Ken
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: "Eduardo Porcel" <eporcel@l...>
Subject: [access_asp] What is wrong MS Access
: I can not add new records ,
:
: can anybody help me?
:
: My code
:
: <%@ Language=VBScript %>
: <% Option Explicit %>
: <!--#include file="DataBaseConnection.asp"-->
:
:
: <%
: ' Declaracion de variables
: Dim strReferer
: Dim intPos
:
: strReferer= Request.ServerVariables("HTTP_Referer")
:
: intPos= Instr(strReferer, "?")
:
: If intPos > 0 Then strReferer= Left(strReferer, intPos -1 )
:
: ' Checamos si los datos que requerimos se encuentran
:
: if (Trim(Request.FORM("NombPais")) <> "") And (Trim(Request.FORM
: ("CveAsignada"))<>"")And (Trim(Request.FORM("Zona"))<>"") then
:
:
: Dim objRS
: Set objRS = Server.CreateObject("ADODB.Recordset")
: objRS.Open "CveZona", Conn, adOpenDynamic, adLockPessimistic
:
:
: objRS.AddNew
: objRS.fields("NOMPAIS")="PRUEBA1"
: objRS.fields("CLAVE")="PRUEBA2"
: objRS.fields("ZONA")="PRUEBA3"
: objRS.Update
: objRS.Close
:
:
:
: Conn.Close
: Set Conn = nothing
:
:
: strReferer="AltaInfo.asp"
: Response.Redirect strReferer & "?Posted=TRUE"
: Else
: strReferer="AltaInfo.asp"
: Response.Redirect strReferer & "?Posted=FALSE"
: End if
:
: %>
Message #3 by "Larry Woods" <larry@l...> on Wed, 30 Oct 2002 19:07:30 -0700
|
|
Is "CveZona" a table or query name? Also, what IS the error that
you are getting?
Larry Woods
> -----Original Message-----
> From: Eduardo Porcel [mailto:eporcel@l...]
> Sent: Thursday, October 31, 2002 12:22 AM
> To: Access ASP
> Subject: [access_asp] What is wrong MS Access
>
>
> I can not add new records ,
>
> can anybody help me?
>
> My code
>
> <%@ Language=VBScript %>
> <% Option Explicit %>
> <!--#include file="DataBaseConnection.asp"-->
>
>
> <%
> ' Declaracion de variables
> Dim strReferer
> Dim intPos
>
> strReferer= Request.ServerVariables("HTTP_Referer")
>
> intPos= Instr(strReferer, "?")
>
> If intPos > 0 Then strReferer= Left(strReferer, intPos
> -1 )
>
> ' Checamos si los datos que requerimos se encuentran
>
> if (Trim(Request.FORM("NombPais")) <> "") And
> (Trim(Request.FORM
> ("CveAsignada"))<>"")And (Trim(Request.FORM("Zona"))<>"") then
>
>
> Dim objRS
> Set objRS = Server.CreateObject("ADODB.Recordset")
> objRS.Open "CveZona", Conn, adOpenDynamic, adLockPessimistic
>
>
> objRS.AddNew
> objRS.fields("NOMPAIS")="PRUEBA1"
> objRS.fields("CLAVE")="PRUEBA2"
> objRS.fields("ZONA")="PRUEBA3"
> objRS.Update
> objRS.Close
>
>
>
> Conn.Close
> Set Conn = nothing
>
>
> strReferer="AltaInfo.asp"
> Response.Redirect strReferer & "?Posted=TRUE"
> Else
> strReferer="AltaInfo.asp"
> Response.Redirect strReferer & "?Posted=FALSE"
> End if
>
> %>
|
|
|
View Cart
