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.
SQL
4 svar · 170 visningar · startad av Wowbagger
SQL = "SELECT * FROM krypto where xx = '"&a2&"'"
set rs = Conn.Execute(SQL)
response.write rs(Mid(text,i,1))
SQL = "SELECT * FROM krypto WHERE xx = '" & a2 & "'"
Set rs = Conn.Execute(SQL)
If Not rs.EOF Then
<%=rs(Mid$(text, i, 1)) %>
End If
<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>
Ja... fungerar det nu eller blev det något annat problem?