Det är så att jag försöker skapa en kundvagn, eller e-portalsystem, började igår att programera lite, tog lite inspiration om hur man skulle lösa variabeln från någon sida som jag inte kommer ihåg adressen till. Har löst en hel del problem, dock vet jag inte hur man löser detta. När jag skickar tex id #22 så fungerar allt som det ska, allting kommer fram som det ska osv. Men om jag vill posta ny data till lagg_till.asp så omdefinieras hela arrayen med det senaste resultatet..
Alltså blir den första arrayen = den andra.
Någon som kan finna svar till detta problem?
[b]global.asa filen[/b]
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
End Sub
Sub Session_OnStart
ReDim abiCustomerbag(4,10)
Session("bag") = abiCustomerbag
Application.Lock
Application("kunder") = Application("kunder") + 1
Application.UnLock
end sub
Sub Session_OnEnd
Application.Lock
Application("kunder") = Application("kunder") + 1
Application.UnLock
Session.Abandon
end sub
</SCRIPT>
[b]lagg_till.asp[/b]
<%
Dim ID, antal, databas, sql, conn, rsProdukter, i, e
ID = Request.Form("ID")
antal = Request.form("antal")
if ID <> "" Then
databas = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\databasen.mdb;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open databas
sql = "SELECT * FROM produkter where ID = " & ID &""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3,3
i = Session("antal")
abibag = Session("bag")
if Not rs.EOF then
i = i + 1
Session("antal") = i
abibag(1,i) = ID
abibag(2,i) = antal
abibag(3,i) = rs("namn")
abibag(4,i) = rs("kostnad")
Session("bag") = abibag
rs.close
set rs = nothing
conn.close
set conn = nothing
end if
end if
nSumSubtotals = 0
For e = 1 To i
Response.write abibag(1,i)
Response.write ("-----------")
Response.write abibag(2,i)
Response.write ("-----------")
Response.write abibag(3,i)
Response.write ("-----------")
Response.write abibag(4,i)
Response.Write ("<br>")
Next
%>