--- title: "Klurigt" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/170147-klurigt" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "rikard81" published: "2008-03-23T08:30:23.000Z" updated: "2008-03-24T17:39:16.000Z" replies: 4 views: 601 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/170147-klurigt" --- # Klurigt ## #1 — rikard81, 2008-03-23T08:30Z Strular! Har suttit länge och klurat med får inte min Access-databas att funka. Någon som ser vart felet ligger. Har lagt upp den på en server för asp men det strular. Databasen heter citat och koden för formulär resp citat ser ut så här: Citat: \ \ \Untitled Document\ \ \ \<% 'Vi börjar öppna databasen, denna gången med ett RecordSet så vi kan hämta informationen från databasen. Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DATABASEN.MDB") Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT \* FROM citat" RecSet.Open SQL, Connect, 3, 3 If RecSet.EOF then 'Om databasen är tom ska följande hända Response.Write "Databasen är tom!" else 'Om den inte är det händer detta Response.Write "\" Do UNTIL RecSet.EOF 'gör tills databasen är tom %\> \ \\<%=RecSet("namn")%\>\ \\<%=RecSet("citat")%\>\ \\<%=RecSet("vem")%\>\ \\<%=RecSet("datum")%\>\ \ \<% RecSet.MoveNext 'HÄmta nästa post. Loop 'Gör detta tills databasen är tom Response.Write "\" %\> \Lägg till ett citat\ \ \ Formulär: \ \ \Untitled Document\ \ \ \ \\ \Ditt Namn:\\\\ \\ \

Citatet:\\\

\</textarea\>\</td\>
\</tr\>\<tr\>
\<td\>Vem sa det?:\</td\>\<td\>\<input type="text" name="vem" /\>\</td\>
\</tr\>\<tr\>
\<td\>\</td\>\<td\>\<input type="submit" value="Spara!" /\>\</td\>
\</tr\>\</table\>
\</form\>

\<%

IF Request.QueryString("do") = "spara" then

'Vi skapar en databaskoppling utan Recordsets.
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("DATABASEN.MDB")

'Vi hämtar informationen från formuläret och ger värdena nya enklare namn
'Vi dimmar även objekten
'Vi ska även hämta tid och datumet när citatet las till. (strNow)

Dim strNamn, strCitat, strVem, strNow
strNamn = Request.Form("namn")
strCitat = Request.Form("citat")
strVem = Request.Form("vem")
strNow = now()

'Vi skapar en SQL sträng
SQL = "INSERT INTO citat (namn, citat, vem, datum) VALUES ('"&strNamn&"','"&strCitat&"','"&strVem&"','"&strNow&"')"
'Vi öppnar SQL strängen och sparar i databasen.
Connect.Execute(SQL)

'Vi skickar besökaren till sidan där han kan läsa sitt citat.
Response.Redirect "citat.asp"

'Vi stänger databasen satsen.
Connect.Close
Set Connect = Nothing

'Vi avslutar IF satsen.
End If

%\>

\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/170147

## #2 — @nders, 2008-03-23T10:04Z

Återigen:

På vilket sätt fungerar det inte?
Felmeddelande?
Och: använd \[kod\]-taggar.

Permalänk: https://www.webforum.nu/p/2093108

## #3 — rikard81, 2008-03-23T10:09Z

Jag får upp formuläret och sedan när jag för in text och klickar så händer inget.. "sidan kan inte visas osv"

Permalänk: https://www.webforum.nu/p/2093111

## #4 — @nders, 2008-03-23T10:14Z

Om du använder IE - stäng av "egna http-felmeddelanden" / "friendly http error messages" så kan du få vettiga felmeddelanden.

Permalänk: https://www.webforum.nu/p/2093112

## #5 — Eclipse, 2008-03-24T17:39Z

```
SQL = "INSERT INTO citat (namn, citat, vem, datum) VALUES 
('"&strNamn&"','"&strCitat&"','"&strVem&"','"&strNow&"')"
```

Är datum en sträng? om inte, använd brädgårdar:

```
SQL = "INSERT INTO citat (namn, citat, vem, datum) VALUES
('"&strNamn&"','"&strCitat&"','"&strVem&"',#"&strNow&"#)"
```

Vad gäller datum, kan du även skriva date() eller now():

```
SQL = "INSERT INTO citat (namn, citat, vem, datum) VALUES 
('"&strNamn&"','"&strCitat&"','"&strVem&"',#" & date() & "#)"
```

Permalänk: https://www.webforum.nu/p/2093382

---

Tråden på webben: https://www.webforum.nu/amne/asp/170147-klurigt