Nenhuma resposta neste tópico

[nortenews]

Pessoal estou com problemas para migrar de aspSmartUpload para SoftArtisans, abaixo o script se algum puder me dar um help.


<%

'On Error Resume Next

Dim mySmartUpload
Dim intCount
intCount=0

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "gif,jpg"
mySmartUpload.Upload


sql="select cd_marca from modelos where cd_modelo = " & mySmartUpload.form("cd_modelo")
set marca = conn.execute(sql)

cd_marca = marca("cd_marca")

For each file In mySmartUpload.Files

If not file.IsMissing Then

mySmartUpload.Save("E:\vhosts\xxx.com.br\httpdocs\imagens")


sql="insert into carros

(cd_modelo,cd_marca,ds_carro_catalogo,ds_carro_placa,menuTab,ds_carro_cor,ds_carro_combustivel,dt_carro_fabricacao,dt_carro_modelo,ds_carro_quilometragem,vl_carro,ds_carro_contato,fl_carro_zero,ds_carro_obs,

ds_carro_foto) values(" & mysmartupload.form("cd_modelo") & "," & cd_marca & ",'" & mysmartupload.form("ds_carro_catalogo") & "','" & mysmartupload.form("ds_carro_placa") & "','" & mysmartupload.form

("menuTab") & "','" & mysmartupload.form("ds_carro_cor") & "','" & mysmartupload.form("ds_carro_combustivel") & "','" & mysmartupload.form("dt_carro_fabricacao") & "','" & mysmartupload.form

("dt_carro_modelo") & "','" & mysmartupload.form("ds_carro_quilometragem") & "'," & mysmartupload.form("vl_carro") & ",'" & mysmartupload.form("ds_carro_contato") & "'," & mysmartupload.form("fl_carro_zero")

& ",'" & mysmartupload.form("ds_carro_obs") & "','" & file.filename & "')"
set rs = conn.execute(sql)

else

sql="insert into carros(cd_modelo,cd_marca,ds_carro_catalogo,

ds_carro_placa,menuTab,ds_carro_cor,ds_carro_combustivel,dt_carro_fabricacao,dt_carro_modelo,ds_carro_quilometragem,vl_carro,ds_carro_contato,fl_carro_zero,ds_carro_obs) values(" & mysmartupload.form

("cd_modelo") & "," & cd_marca & ",'" & mysmartupload.form("ds_carro_catalogo") & "','" & mysmartupload.form("ds_carro_placa") & "','" & mysmartupload.form("menuTab") & "','" & mysmartupload.form

("ds_carro_cor") & "','" & mysmartupload.form("ds_carro_combustivel") & "','" & mysmartupload.form("dt_carro_fabricacao") & "','" & mysmartupload.form("dt_carro_modelo") & "','" & mysmartupload.form

("ds_carro_quilometragem") & "'," & mysmartupload.form("vl_carro") & ",'" & mysmartupload.form("ds_carro_contato") & "'," & mysmartupload.form("fl_carro_zero") & ",'" & mysmartupload.form("ds_carro_obs") &

"')"
set rs = conn.execute(sql)


end if




Next

mysmartupload.close

cd_acessorio = mySmartUpload.form("cd_acessorio")

cd_acessorio = split(cd_acessorio, ",")

For i =LBound(cd_acessorio) to Ubound(cd_acessorio)

sql2 = "select cd_carro from carros order by cd_carro desc"
set rs2 = conn.execute(sql2)

sql3 = "insert into carros_acessorios(cd_carro, cd_acessorio) values(" & rs2("cd_carro") & "," & cd_acessorio(i) & ")"
set rs3 = conn.execute(sql3)

next


%>


<br>

<table width="80%" align="center" bgcolor="ffffff" border="0" cellspacing="0" cellpadding="1">

<tr>
<td colspan="2"><font face="verdana" size="2"><b>Carro Cadastrado com Sucesso!</b></font></td>
</tr>

</table>