Insert into DB ASP

[terroraapje]

Ik krijg steeds een foutmelding en wel deze:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/prins/record.asp, line 32

lijn 32 is con.Execute sql_insert

iemand?

<% 
Dim strConnection, conn, rs, strSQL, sql_insert 

sql_insert = "INSERT INTO dbo.Project_info (projnr,Orderbedrag,vertw,datum,PLTXT)" & _ 
" VALUES(projnmmr,bedrag,verteg,datum,klant)" 

strConnection = "Driver=SQL Server;Server=mtnl12ictdb;" & _ 
"Database=prins;Uid=ict_odbc_user;Pwd=ict_odbc_user;" 

Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open strConnection 

projnmmr=request.form("projnmmr") 
bedrag=request.form("bedrag") 
verteg=request.form("verteg") 
datum=FormatDateTime(date(),vbgeneraldate) 
klant=request.form("klant") 

con.Execute sql_insert 
%>

 

[Tardis]

Variabele con is niet gedefineerd.......

Tardis

 

[terroraapje]

mmm oke sorry maar dat aangepast naar conn.
krijg ik de volgende

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]The name "projnmmr" is not permitted in this context. Valid expressions are constants, constant expressions, and (in some contexts) variables. Column names are not permitted.

/prins/record.asp, line 33

 

[terroraapje]

het is me gelukt om zonder foutmeldingen verder te gaan maar nu schrijft hij niks weg!

wie o wie XD

<% 
	' Setting variables
	Dim con, sql_insert, data_source

	data_source = "Driver=SQL Server;Server=xxxxxx;" & _
"Database=xxxxxxxx;Uid=xxxxxx;Pwd=xxxxxxxx;"
	sql_insert = "INSERT INTO dbo.Project_info (projnr,Orderbedrag,vertw,datum,PLTXT)" & _ 
" VALUES('" & prnmmr & "','" & bedrag & "','" & vertw1 & "','" & datum1 & "','" & bedrijf & "')"

	' Creating the Connection Object and opening the database
	Set con = Server.CreateObject("ADODB.Connection")
	con.Open data_source

	' Executing the sql insertion code
	con.Execute sql_insert

bedrag=request.form("bedrag")
datum1=FormatDateTime(todaysDate,2)
prnmmr=request.form("prnmmr")
vertw1=request.form("vertw")
bedrijf=request.form("bedrijf")

%>

connectie klopt gewoon want haal op andere pagina gegevens op!

 

[aelatik]

Je code lijkt te kloppen, je volgorde echter niet.

Je variabelen moeten gevuld worden voordat je het in de database schiet, en niet erna..

Zo moet het zijn :

<% 
	Dim con
	Dim sql_insert
	Dim data_source
	Dim bedrag 	: bedrag=request.form("bedrag")
	Dim datum1 	: datum1=FormatDateTime(todaysDate,2)
	Dim prnmmr 	: prnmmr=request.form("prnmmr")
	Dim vertw1 	: vertw1=request.form("vertw")
	Dim bedrijf : bedrijf=request.form("bedrijf")

	data_source 	= "Driver=SQL Server;Server=xxxxxx;" & "Database=xxxxxxxx;Uid=xxxxxx;Pwd=xxxxxxxx;"
	sql_insert 		= "INSERT INTO dbo.Project_info (projnr,Orderbedrag,vertw,datum,PLTXT) VALUES ('" & prnmmr & "','" & bedrag & "','" & vertw1 & "','" & datum1 & "','" & bedrijf & "')"
	Set con = Server.CreateObject("ADODB.Connection")
	con.Open data_source
	con.Execute sql_insert
%>