[asp] variabele krijgt niet de nieuwe waarde

[Verwijderd]

Hoi,

Ik ben een ASP newbie en ik vind het nog niet prettig werken, maar goed.

Het onderstaande script:

code:

<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="upload.asp" -->
<%
on error resume next
Response.Buffer=True
'NOTE - YOU MUST HAVE VBSCRIPT v5.0 INSTALLED ON YOUR WEB SERVER
'      FOR THIS LIBRARY TO FUNCTION CORRECTLY. YOU CAN OBTAIN IT
'      FREE FROM MICROSOFT WHEN YOU INSTALL INTERNET EXPLORER 5.0
'      OR LATER.

' Create the FileUploader
Dim Uploader, File, savePath
savePath = "E:\Port Folio\Freelance opdrachten\printermanager\uploads\"
Set Uploader = New FileUploader
Uploader.Upload()

dim conn, insQry, updQry, delQry, insResult, selPattern, Icc, Linear, i

Icc     = ""
Linear  = ""

'Open ODBC connection
set conn=Server.CreateObject("ADODB.Connection") 
conn.Open "printermanager"

'******************************************
' Use [FileUploader object].Form to access 
' additional form variables submitted with
' the file upload(s). (used below)
'******************************************
if Uploader.Form("btnAddBase")="add colorbase" then
    ' Next step: add new DotPattern if needed
    if Uploader.Form("newpattern")<>"" and Uploader.Form("newpattern")<>"enter new dot pattern here" then
        insQry = "INSERT INTO `tblDotpatterns`"         &_
                 "(`txtPa_Description`) VALUES "        &_
                 "('" & Uploader.Form("newpattern")     & "')"          
        conn.Execute(insQry)
        set insResult = conn.Execute("SELECT @@IDENTITY")
        selPattern = insResult(0)
        insResult.Close()   
        if err<>0 then
            Response.Write("Could not insert new dot pattern!<br />")
            selPattern = 1
        end if
    elseif Uploader.Form("dotpattern")<>"" then 
        selPattern = Uploader.Form("dotpattern")
    else
        selPattern = 1  
    end if
    
    'Next step: handle file uploads
    'iccprofile and linearfile
    if Uploader.Files.Count = 0 then    
        Icc = ""
        Linear = ""
    else
        if Uploader.Files("iccprofile").FileName<>"" then
            Icc = Uploader.Files("iccprofile").FileName
            Uploader.Files("iccprofile").SaveToDisk savePath
        else
            Icc = ""    
        end if      
        if Uploader.Files("linearfile").FileName<>"" then
            Linear = Uploader.Files("linearfile").FileName
            Uploader.Files("linearfile").SaveToDisk savePath            
        else
            Linear = "" 
        end if      
    end if
    
    'Insert new ColorBase 
    insQry = "INSERT INTO `tblColorbase`" &_
             "(`txtCB_Title`, " &_
             " `lngCB_StatusID`, " &_
             " `lngCB_MediaManufacturerID`, " &_
             " `lngCB_MediaPrintID`, " &_
             " `lngCB_CombiPrinterID`, " &_
             " `lngCB_InkManufacturerID`, " &_
             " `lngCB_InkID`, " &_
             " `lngCB_DotpatternID`, " &_
             " `txtCB_Qualitymode`, " &_
             " `lngCB_DensityC`, " &_
             " `lngCB_DensityM`, " &_
             " `lngCB_DensityY`, " &_
             " `lngCB_DensityK`, " &_                                    
             " `txtCB_IccProfile`, " &_
             " `txtCB_Linear`, " &_
             " `txtCB_Remarks`)" &_
             " VALUES " &_
             "('" & Uploader.Form("title") & "', " &_
             " '" & Uploader.Form("status") & "', " &_
             " '" & Uploader.Form("mediamanufacturer") & "', " &_
             " '" & Uploader.Form("media") & "', " &_
             " '" & Uploader.Form("combi") & "', " &_
             " '" & Uploader.Form("inkmanufacturer") & "', " &_
             " '" & Uploader.Form("ink") & "', " &_
             " '" & selPattern & "', " &_
             " '" & Uploader.Form("qmode") & "', " &_
             " '" & Uploader.Form("densC_part1") & "', " &_
             " '" & Uploader.Form("densM_part1") & "', " &_
             " '" & Uploader.Form("densY_part1") & "', " &_
             " '" & Uploader.Form("densK_part1") & "', " &_                                 
             " '" & Icc & "', " &_
             " '" & Linear & "', " &_
             " '" & Uploader.Form("remarks") & "') "
    conn.Execute(insQry)
    if err<>0 then
        Response.Write("Could not insert new colorbase!<br />") 
        Response.Write("<br />" & insQry)
    else
        set insResult = conn.Execute("SELECT @@IDENTITY")
        cbID = insResult(0)
        insResult.Close()
        ' Add temperatures
        for i=0 to cInt(Uploader.Form("numHeaters"))-1
            insQry = "INSERT INTO `tblHeaterTemps` ( " &_
                     " `lngHT_ColorbaseID`, " &_
                     " `lngHT_HPHeaterID`, " &_
                     " `lngHT_Temperature` " &_
                     ") VALUES ( " &_
                     " '" & cbID & "', " &_
                     " '" & Uploader.Form("heaterID[" & i & "]") & "', " &_
                     " '" & Uploader.Form("heaterTemp[" & i & "]") & "' " &_
                     ")"
            Response.Write insQry & "<br />"         
            conn.Execute(insQry)            
        next
    end if
end if

' Close connection
conn.Close
%>

Op regel 117 wil ik insQry steeds een nieuwe waarde geven.
Maar hij blijft maar de oude waarde teruggeven uit regel 73!?

Hoe kan dit nou toch!? Ik zie vast iets over het hoofd, maar goed ...
HELP!

[NMe]

Debuggen... Komt je code überhaupt wel op die regel?

[faabman]

geef eerst eens de complete melding die je krijgt... Ik denk namelijk dat er al eerder in het script een en ander fout gaat...

Je kunt overigens beter ff gaan kijken naar parameterized queries, want de manier waarop je nu aan het sleutelen bent is niet echt safe voor je database (denk bijv. aan sql-injection). Daarnaast ben ik eigenlijk nog nooit quotes om tabel-veld-namen tegengekomen... dus die kun je afaik ook gewoon weg laten...

[Verwijderd]

Ja, het script komt daar wel
adhv Response.Write insQry & "<br />"
wist ik dat de query steeds dezelfde oude query was en dat de nieuwe waarde niet wordt toegekend.

[Verwijderd]

ok, het komt dus in ieder geval omdat ik cbID niet eerst had gedimmed.
Ik ben zelf PHP gewend en dat hoeft in php niet.

quotes om de tabelveldnamen doe ik in PHP ook altijd.
Gewoonte en maakt niets uit.

[Verwijderd]

--- nutteloze vraag ---

[ Voor 98% gewijzigd door Verwijderd op 15-11-2004 21:44 ]

[NMe]

Backticks om veldnamen werken in Access/SQL Server toch niet?

Verder: omdat dat Dim probleem op te lossen moet je Option Explicit bovenaan je code zetten. Staat ook in de FAQ van dit subforum, misschien is het een goed plan die eens door te nemen.

[Verwijderd]

Helaas geen tijd voor want het is een mega haastklus
Zal ik daarna zeker gaan doen.

Option Explicit staat trouwens gewoon boven aan ...
Maar goed, dat werkt nu wel ....

Ik heb nu een ander probleem ....
zet ik ff in een nieuw topic

[ Voor 47% gewijzigd door Verwijderd op 15-11-2004 22:22 ]

[NMe]

Als Option Explicit boven je code staat dan kan je script niet eens runnen als je je variabelen niet dimt. Dus hoe heb je dat klaar gekregen?

[faabman]

NMe84 schreef op maandag 15 november 2004 @ 22:29:
Als Option Explicit boven je code staat dan kan je script niet eens runnen als je je variabelen niet dimt. Dus hoe heb je dat klaar gekregen?

on error resume next

[NMe]

faabman schreef op maandag 15 november 2004 @ 22:35:
on error resume next

Ow, ja, nou, ehm....das handig.

[Verwijderd]

Tsja, newbie ... enfin ....

Iets anders dan ....

Ik heb een formuliertje:

code:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title></title>
</head>

<body>

<form name="form1" id="form1" action="test2.asp" method="post"">
  <table width="400" border="0" cellspacing="0" cellpadding="5">
    <tr>
      <td>veld 1: </td>
      <td><input name="veld" type="text" id="veld" /></td>
    </tr>
    <tr>
      <td>veld 2: </td>
      <td><input name="veld" type="text" id="veld" /></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="Submit" /></td>
    </tr>
  </table>
</form>
</body>
</html>

en het resultaat komt in:
test2.asp

code:

<%
dim veld, veldSize, i
veld = Split(Request.Form("veld"),",")
if(IsArray(veld)) then
veldSize = (UBound(veld) - LBound(veld)) + 1
    for i=0 to veldSize-1
        Response.Write veld(i)
    next
end if
%>

Nou dit werkt perfect.
Zo kan ik dus meerdere velden met dezelfde naam meesturen (ik wil namelijk een array gaan sturen, vraag niet waarom, geen zin om dit uit te leggen ...)

Maar in dat eerste formulier wil ik nu ook een bestand mee gaan sturen.
Dus de enctype van het form veranderd.

Het formulier wordt:

code:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title></title>
</head>

<body>

<form name="form1" id="form1" action="test2.asp" method="post" enctype="multipart/form-data">
  <table width="400" border="0" cellspacing="0" cellpadding="5">
    <tr>
      <td>veld 1: </td>
      <td><input name="veld" type="text" id="veld" /></td>
    </tr>
    <tr>
      <td>veld 2: </td>
      <td><input name="veld" type="text" id="veld" /></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="Submit" /></td>
    </tr>
  </table>
</form>
</body>
</html>

Om uploads af te handelen gebruik ik
http://www.asp101.com/articles/jacob/scriptupload.asp

Dus test2.asp wordt:

code:

<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #include file="upload.asp" -->
<%
' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader

' This starts the upload process
Uploader.Upload()

dim veld, veldSize, i
veld = Split(Uploader.Form("veld"),",")
if(IsArray(veld)) then
veldSize = (UBound(veld) - LBound(veld)) + 1
    for i=0 to veldSize-1
        Response.Write veld(i)
    next
end if
%>

Maar dit werkt dus niet!!!
Iemand enig idee hoe ik toch dit upload systeem kan gebruiken MET het behoud van de inputvelden met dezelfde naam?!!

Alleen de waarde van het eerste veld wordt nu getoond.
De rest niet ....

[ Voor 22% gewijzigd door Verwijderd op 15-11-2004 22:56 ]

[faabman]

gebruik anders even een upload component als aspupload oid...

er klopt overigens weinig van je HTML... Je geeft verschillende objecten dezelfde ID mee en dat is verboden daarnaast kun je je formulier beter niet opmaken met een tabel, maar met

<form /> <fieldset /> <label /> e.d. i.c.m. CSS

via google / in webdesign en graphics is genoeg te vinden over (semantisch) correct opgemaakte formulieren

edit:
Probeer eens dit:

ASP:

if(IsArray(veld)) then
    for i=0 to UBound(veld)
        Response.Write veld(i)
    next
end if

[ Voor 19% gewijzigd door faabman op 15-11-2004 23:13 ]

[Verwijderd]

Oh sorry, ff vergeten de id's aan te passen, boeiend zeg.
dat zal het probleem niet zijn.

en volgens mij worden echt ca. tig miljoen formuliertjes met tables gemaakt ... anywayz ....

Daar gaat het voor de rest ook niet om

Een component kost geld en dat is er dus niet ...

[ Voor 13% gewijzigd door Verwijderd op 15-11-2004 23:15 ]

[gorgi_19]

Het eerste probleem is een lap code en debugwerk; daar moet je zelf uit kunnen komen. Zie hiervoor ook P&W FAQ - ASP ; on error resume next is zo ongeveer een van de eerste dingen die je er uit moet slopen

Je tweede vraag gaat over een specifiek component c.q. een stukje code. Mail de maker hiervoor; we kunnen niet raden wat het component wil uitvoeren en hoe deze werkt We geven geen support op andermans scripts / componenten