Refresh page (multiple listbox values)

Πληροφορίες σχετικές με την ASP, ASP.NET και με τις εφαρμογές που είναι γραμμένες με αυτήν.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
pierotos
Δημοσιεύσεις: 9
Εγγραφή: 04 Ιαν 2010 11:07

Refresh page (multiple listbox values)

Δημοσίευση από pierotos » 04 Ιαν 2010 11:35

Καλημέρα σε όλα τα μέλη και καλή χρονιά,

Είμαι σχετικά καινούργιος στην asp και έχω ένα πρόβλημα που με ταλαιπωρεί μέρες.

Έχω μια φόρμα στην οποία επιλέγω συγκεκριμένες τιμές από ενα listbox:


<FORM METHOD=POST ACTION="TransactionsCode_range.asp">
<table cellpadding=1 cellspacing=1 border=1 class="norm">
<tr>
<td colspan="2" align="center"><b>Συγκεντρωτικές Πωλήσεις</b></td>
</tr>
<tr>
<td align="center">Κωδικοί:</td>
<td><select name="codes" size=4 multiple>
<option value="999" selected> Όλα </option>
<option value="03" > 03 </option>
<option value="04" > 04 </option>
<option value="05" > 05 </option>
</select>
</td>
</tr>
<tr>
<td align="center">Ημερομηνία Από:</td>
<td><input type="Text" name="date_from_range" id="date_from_range" value="" size="10"></td>
</tr>
<tr>
<td align="right">Έως:</td>
<td><input type="Text" name="date_to_range" id="date_to_range" value="" size="10"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="Αναζήτηση" name="submit"></td>
</tr>

</table>
</form>


Το script που καλώ (transactionscode_range.asp) αποθηκεύει τις τιμές από την φόρμα και τρέχοντας ένα query στην βάση μου φέρνει τα αποτελέσματα. Μέχρι εδώ όλα ΟΚ. Όταν όμως κάνει η σελίδα αύτοματα refresh ( <META HTTP-EQUIV="REFRESH" CONTENT="10"> ) μου εμφανίζει error

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Left'

Από τι έχω καταλάβει στο refresh δεν αποθηκεύει στις μεταβλητές μου, τις τιμές που είχα επιλέξει αρχικά στην φόρμα με αποτέλεσμα να βγάζει error στην left καθώς η μεταβλητή pcodes είναι κενή το ίδιο και οι ημερομηνίες. Πως μπορώ να κρατάω τις τιμές ώστε να δουλεύει το refresh?

Παρακάτω είναι ένα δείγμα του κώδικα:

<html>
<head>
<%'@ LANGUAGE="VBSCRIPT" %>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-7">
<META HTTP-EQUIV="REFRESH" CONTENT="10">
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
<link rel="stylesheet" href="corporate1.css">
<title>Κινήσεις</title>
</head>
<body class="normal">
<center>

<%
dim pcodes
dim pdate_from_range
dim pdate_to_range

pcodes=""
pdate_from_range = request.form("date_from_range")
pdate_to_range = request.form("date_to_range")


for each item in Request.form("codes")
pcodes = pcodes & "'" & item & "'" & ","
Next

pcodes = Left(pcodes, Len(pcodes) -1)

if request.form.item("codes") = "999" then
pcodes = " '03','04','05' "
end if

%>


Ευχαριστώ εκ των προτέρων.

Άβαταρ μέλους
Triole
Δημοσιεύσεις: 27
Εγγραφή: 20 Φεβ 2010 02:16

Refresh page (multiple listbox values)

Δημοσίευση από Triole » 24 Φεβ 2010 20:15

otan kaneis refresh etsi den POSTAROnte oi mnetablhtes.

ego ta ekanato exis.......

me to poy eperna tis metablites moy

Κώδικας: Επιλογή όλων

for each item in Request.form&#40;"codes"&#41; 
pcodes = pcodes & "'" & item & "'" & "," 
Next 

'amesos meta ta elega

session&#40;"pcodes"&#41;=pcodes
'kai pano pano sthn selida ta zitaga tis metablhtes an ipirxan

Κώδικας: Επιλογή όλων

'an exei times to session tote tis perno.
if session&#40;"pcodes"&#41;<>"" Then
pcodes =session&#40;"pcodes"&#41;
else

'edo an exei timi i metablhth tote tin prosteto
if Request.form&#40;"codes"&#41;<>"" Then
for each item in Request.form&#40;"codes"&#41; 
pcodes = pcodes & "'" & item & "'" & "," 
Next 
end if
end if



'kai sto telos. ligo katharisma den blaptei.
session("pcodes")=""

Απάντηση

Επιστροφή στο “ASP, ASP.NET”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες