Det sparas ju inte till databasen detta, och jag har frågat runt och testat allt jag kan komma på *s* Svar nej. Det är första if-satsen som strular till det: får detta fel nu såg felet med open så jag ändrade till: Förmodlingen problem med skrivrättigheter till db.. Har du sökt forumet? Har varit uppe tidigare. yessssssssssssss!!! nu kom fick jag ett till problem :-( jag vill ju att det skall skrivas in i de olika fälten vara på samma id typ:Till Hillqvist & alla andra
fick detta svar då jag frågade om varför inget händer
"Ifall det inte sparas i databasen, så är det med stor sannolikhet för att den här kollen stoppar det:
Alltså är det ett av värdena som du hämtar som inte är numeriskt."
nu så tror jag att felet kan vara här:
<code> If IsNumeric(Antal) And IsNumeric(Belopp) Then
</code>
här är ju hela koden
<code> <%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim Count
Dim Index
Dim strSQL
Dim Produkt
Dim Antal
Dim Belopp
If Request.Form("action") = "Skicka" Then
Count = CLng(Request.Form("count"))
For Index = 1 to Count
Produkt = "" & Request.Form("Produkt" & Index)
Antal = "" & Request.Form("Antal" & Index)
Belopp = "" & Request.Form("Belopp" & Index)
If IsNumeric(Antal) And IsNumeric(Belopp) Then
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("faktura_adress.mdb")
strSQL = "INSERT INTO spara (Produkt, Antal, Belopp)" & vbCrLf & _
"VALUES ('" & Replace(Produkt, "'", "''") & "', " & CLng(Antal) & ", " & Replace(Belopp, ",", ".") & ")"
db.Execute(strSQL)
db.Close
Set db = Nothing
End If
Next
End If
%>
<% Response.write (Request.Form) %>
<% response.write(strSQL) %>
Tack för din order!
</BODY>
</HTML> </code>
av detta
<code> <% Response.write (Request.Form) %> </code>
så blir det typ så här
Produkt1=bilstereo&Antal1=3&Belopp1=5&action=Bekr%E4fta&count=1 Tack för din order!
/TommySv: Till Hillqvist & alla andra
<code>
If Request.Form("action") = "Skicka" Then
</code>
Skall vara:
<code>
If Request.Form("action") = "Bekräfta" Then
</code>
Försök med:
<code>
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim Count
Dim Index
Dim strSQL
Dim Produkt
Dim Antal
Dim Belopp
Dim con
If Request.Form("action") = "Bekräfta" Then
Count = CLng(Request.Form("count"))
If Count > 0 Then
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("faktura_adress.mdb")
For Index = 1 to Count
Produkt = "" & Request.Form("Produkt" & Index)
Antal = "" & Request.Form("Antal" & Index)
Belopp = "" & Request.Form("Belopp" & Index)
If IsNumeric(Antal) And IsNumeric(Belopp) Then
strSQL = "INSERT INTO spara (Produkt, Antal, Belopp)" & vbCrLf & _
"VALUES ('" & Replace(Produkt, "'", "''") & "', " & CLng(Antal) & ", " & Replace(Belopp, ",", ".") & ")"
con.Execute strSQL
End If
Next
con.Close
Set con = Nothing
Response.Write "Tack för din order."
Else
Response.Write "Du ahr inte angivit några varor."
End If
Else
Response.Write "Du måste skicka formulärdata till denna sida!"
End If
%>
</BODY>
</HTML>
</code> Sv: Till Hillqvist & alla andra
Feltyp:
ADODB.Connection (0x800A0E78)
Åtgärden är inte tillåten när objektet är stängt.
/form/page/Page3.asp, line 23Sv: Till Hillqvist & alla andra
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("faktura_adress.mdb")
då jag ändrade till detta så blir det så här nu:
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Allmänt fel Det går inte att öppna registernyckeln 'Temporary (volatile) Jet DSN for process 0xdd8 Thread 0x53c DBC 0x10e606c Jet'.
/form/page/Page3.asp, line 23Sv: Till Hillqvist & alla andra
Prova annars med en OLE DB-koppling till databasen istället..
/FSv: Till Hillqvist & alla andra
Typcker du skall använda OLEDB istället:
<code>
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ("faktura_adress.mdb")
</code>
Sv: Till Hillqvist & alla andra
Tack så JÄTTE mycket nu så funkar det ju!!!Sv: Till Hillqvist & alla andra
allt som lägger sig i fältet Produkt i access databasen skall hamna där så att det ser ut så här där då.
<code> målarfärg<br>Spik<br>tegelstenar </code>
desamma gäller ju Antal och Belopp också så att alla 3 får samma id.
hoppas jag inte är för jobbig bara *ler*
/Tommy