trasferire grossi testi flash->asp->access

[optime]

potrebbe essere un apice che da' noia o chissà quale carattere speciale, con i parametri non hai quel problema

[Mir]

Se non ho capito male dovrei arrivare a questo:

<% @Language = "VBScript" %>
<% Option Explicit %>


<%

Dim cmd
Dim connect
Dim strSQL
Dim mIsFlash
Dim rsWK
Dim data_attuale
Dim p_titolo
Dim p_news
Dim p_firma
Dim p_download

Const adCmdStoredProc = &H0004
Const adParamInput = &H0001
Const adVarChar = 200
	
	data_attuale = formatDateTime(Now(),2)
	mIsFlash = Trim(Request("IsFlash"))
		If mIsFlash = "True" Then
		
		p_titolo = request("titolo")
		p_news = request("news")
		p_firma = request("firma")
		p_download = request("download")
		

		
	
		Set cmd = Server.CreateObject ("ADODB.Command")
		
		
		connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
      Server.MapPath("\mdb\database_access.mdb") & ";Persist Security Info=False"
	  
	  cmd.ActiveConnection = connect
	  
	  cmd.CommandText = "insert_news"
	  
	  
	  cmd.CommandType = adCmdStoredProc
	  
	  cmd.Parameters.Append cmd.CreateParameter &_
      (data_attuale,p_titolo,p_news,p_firm,p_download,adVarChar,adParamInput ,10,"C0450")
		
		
		Response.Write "ris=ok"
		
		
		'CHIUSURA CONNESSIONE DB
		set cmd = nothing

	Else
		Response.Write "ris=error"
	End If
	

%>

Non so mica se ho capito bene il passaggio delle variabili alla sp.

[optime]

con cmd.parameters.append, uno alla volta

[Mir]

Originariamente inviato da optime
con cmd.parameters.append, uno alla volta

difatti mi dà errore quella linea ... cosa intendi per uno alla volta?

[optime]

che vuol dire uno alla volta? mir, vuol dire "uno alla volta"

append par1
append par2
ecc

[Mir]

Ok ... non capisco la stringa da scrivere:

cmd.Parameters.Append cmd.CreateParameter &_ (data_attuale,adVarChar,adParamInput ,10,"C0450")

cmd.Parameters.Append cmd.CreateParameter &_ (p_titolo,adVarChar,adParamInput ,10,"C0450")

....


?!?!?

[optime]

'na ricerchetta da solo te la puoi pure fa', no?

http://www.w3schools.com/ado/met_com...eparameter.asp

[Mir]

me scombini la vita con questi nuovi comandi .... e devo pure cercarmi le stringhe corrette

scherzo è che pensavo fosse una stringa banale da scrivere per quello te la chiedevo al volo.


Comunque dal link al volo non ci ho capito un granché ... sarà l'ora.

Riprovo domani

grazie
mir

[Mir]

Non capisco come funziona:

Dim cmd
Dim connect
Dim strSQL
Dim mIsFlash
Dim rsWK
Dim data_attuale
Dim p_titolo
Dim p_news
Dim p_firma
Dim p_download

Const adCmdStoredProc = &H0004
Const adParamInput = &H0001
Const adVarChar = 200
	
data_attuale = formatDateTime(Now(),2)
mIsFlash = Trim(Request("IsFlash"))
	If mIsFlash = "True" Then
		
	p_titolo = request("titolo")
	p_news = request("news")
	p_firma = request("firma")
	p_download = request("download")
		

	Set cmd = Server.CreateObject ("ADODB.Command")
		
	connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
      Server.MapPath("\mdb-database\mdb.mdb")  & ";Persist Security Info=False"
	  
	cmd.ActiveConnection = connect
	  
	cmd.CommandText = "insert_news"
	
	cmd.CommandType = adCmdStoredProc
        cmd.Parameters.Append cmd.CreateParameter (data_attuale ,10,"C0450")
	cmd.Parameters.Append cmd.CreateParameter (p_titolo,10,"C0450")
	cmd.Parameters.Append cmd.CreateParameter (p_news,10,"C0450")
	cmd.Parameters.Append cmd.CreateParameter (p_firm,10,"C0450")
	cmd.Parameters.Append cmd.CreateParameter (p_download,10,"C0450")

....

come passo singolarmente i parametri?

[optime]

Originariamente inviato da Mir

come passo singolarmente i parametri?

ma la pagina l'hai letta?