---
title: "SQL"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74169-sql"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wowbagger"
published: "2003-04-15T13:52:46.000Z"
updated: "2003-04-15T14:15:20.000Z"
replies: 4
views: 172
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/74169-sql"
---

# SQL

## #1 — Wowbagger, 2003-04-15T13:52Z

Varför kan man inte göra så här?

SQL = "SELECT \* FROM krypto where xx = '"&a2&"'"
set rs = Conn.Execute(SQL)
\=rs('"&Mid(text,i,1)&"')

"text" är en bokstav och i databasen finns ett fält för varje bokstav.

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

## #2 — Vide, 2003-04-15T13:57Z

SQL = "SELECT \* FROM krypto where xx = '"&a2&"'"
set rs = Conn.Execute(SQL)
response.write rs(Mid(text,i,1))

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

## #3 — Engine^, 2003-04-15T13:59Z

```
SQL = "SELECT * FROM krypto WHERE xx = '" & a2 & "'"
Set rs = Conn.Execute(SQL)

If Not rs.EOF Then
  <%=rs(Mid$(text, i, 1)) %>
End If
```

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

## #4 — Wowbagger, 2003-04-15T14:05Z

\<html\>
\<head\>
  \<title\>Kryptering\</title\>
\</head\>
\<body\>
\<FORM method="post" action="test2.asp"\>
Text: \<input type="text" name="text"\>\<br\>
Kryptering: \<input type="text" name="nyckel"\>
\<input type="submit" name="Submit" value="kryptera"\>
\</form\>

\<%
Response.Buffer = True
Dim Conn, RecSet, SQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.MapPath("roes\\db\\krypto.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

if REQUEST.FORM("text") \<\> "" and REQUEST.FORM("nyckel") \<\> "" then
text = REQUEST.FORM("text")
key = REQUEST.FORM("nyckel")

for i = 1 to Len(text)
key = key+key
next

For i = 1 To Len(text)
a2 = Mid(key,i,1)
SQL = "SELECT \* FROM krypto where xx = '"&a2&"'"
set rs = Conn.Execute(SQL)
response.write rs(Mid(text,i,1))
next

end if
rs.Close
'Conn.Close
%\>

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

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

## #5 — Engine^, 2003-04-15T14:15Z

Ja... fungerar det nu eller blev det något annat problem?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/74169-sql