Hej!

Jag försöker få till att sökresultatet hamnar i olika textfält, men får inte till det!

ex på min kod
<%Response.Buffer=True

db= Server.MapPath("../../db/databas.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%>

<%Set Rs = Server.CreateObject("ADODB.Recordset")

dim sSearchString

sSearchString = "XXXXXX"

sql = ("select * from tabell where fält0 = '" & sSearchString & "'")
Set rs = Conn.Execute(sql)

Response.write "<table width='100%' celspacing='0' celpadding='0' align='Left' border='0'>"

Response.write "<TR>"

response.Write "<Td><input type="text" size="40" name="fält1" value="<% =Rs("fält1") %></Td>"
response.Write "<Td><input type="text" size="40" name="fält2" value="<% =Rs("fält2") %></Td>"
response.Write "<Td><input type="text" size="40" name="fält3" value="<% =Rs("fält3") %></Td>"
response.Write "<Td><input type="text" size="40" name="fält4" value="<% =Rs("fält4") %></Td>"

Response.write "</Tr>"

RS.MoveNext
Loop


Response.write "</Table>"

RS.CLOSE
CONN.CLOSE
SET RS = NOTHING
SET CONN = NOTHING

%>


Tobbe

<%
Option Explicit

    Response.Buffer = True

Dim Rs
Dim Conn
Dim Fält1, Fält2, Fält3
Dim SQL
Dim FileName
Dim SearchString

    FileName = Server.MapPath("../../db/databas.mdb")

    SearchString = "XXXXXX"
    SQL = "SELECT * FROM tabell WHERE fält0 = '" & sSearchString & "'"

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName

    Set Rs = Server.CreateObject("ADODB.Recordset")
    rs.Open SQL, Conn

    Set Fält1 = Rs("fält1")
    Set Fält2 = Rs("fält2")
    Set Fält3 = Rs("fält3")
    Set Fält4 = Rs("fält4")

    Response.write "<table width='100%' celspacing='0' celpadding='0' align='Left' border='0'>"
    Do Until rs.EOF
        Response.Write "<TR>"  
        Response.Write "<TD><input type=""text"" size=""40"" name=""fält1"" value="""  & Server.HTMLEncode(Fält1.Value) & "</TD>"    
        Response.Write "<TD><input type=""text"" size=""40"" name=""fält2"" value="""  & Server.HTMLEncode(Fält2.Value) & "</TD>"    
        Response.Write "<TD><input type=""text"" size=""40"" name=""fält3"" value="""  & Server.HTMLEncode(Fält3.Value) & "</TD>"    
        Response.Write "<TD><input type=""text"" size=""40"" name=""fält4"" value="""  & Server.HTMLEncode(Fält4.Value) & "</TD>"    
        Response.Write "</TR>"
        RS.MoveNext
    Loop
    Response.write "</Table>"

    rs.Close
    Conn.Close
%> 

Hej Andreas!

Får inte fram ett jota dvs Ett problem uppstod med sidan du försöker nå och den kan inte visas.
HTTP 500 - Internt serverfel
Internet Explorer

Ändrade i fältnamnen

<%
Option Explicit

Response.Buffer = True

Dim Rs
Dim Conn
Dim Field1, Field2, Field3
Dim SQL
Dim FileName
Dim SearchString

FileName = Server.MapPath("../../db/Gru.mdb")

SearchString = "XXXX"

SQL = "SELECT * FROM tabell WHERE Reg = '" & sSearchString & "'"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName

Set Rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn

Set Field1 = Rs("Reg")
Set Field2 = Rs("Modell")
Set Field3 = Rs("Ar")
Set Field4 = Rs("Datum")

Response.write "<table width='100%' celspacing='0' celpadding='0' align='Left' border='0'>"
Do Until rs.EOF
Response.Write "<TR>"
Response.Write "<TD><input type=""text"" size=""40"" name=""Field1"" value=""" & Server.HTMLEncode(field1.Value) & "</TD>"
Response.Write "<TD><input type=""text"" size=""40"" name=""Field2"" value=""" & Server.HTMLEncode(field2.Value) & "</TD>"
Response.Write "<TD><input type=""text"" size=""40"" name=""Field3"" value=""" & Server.HTMLEncode(field3.Value) & "</TD>"
Response.Write "<TD><input type=""text"" size=""40"" name=""Field4"" value=""" & Server.HTMLEncode(field4.Value) & "</TD>"
Response.Write "</TR>"
RS.MoveNext
Loop
Response.write "</Table>"

rs.Close
Conn.Close
%>

Varför skall detta vara så knepigt.

Vad gör Server.HTMLEncode för något ?

Tobbe

Vet du om ifall du får några värden med dig?
Det Andreas har beskrivet, ser bra ut, men det fattas en kontrollfaktor:
<code>
if not rs.eof then
Do Until rs.EOF
'din kod
rs.movenext
loop
end if
</code>
Sedan måste du stänga av "visa egna http-felmedelande" så att du kan se exakt vad som är fel.
(det gör du i explorer/verktyg/internet-alternativ/avancerat)

If satsen är helt onödig då Do gör jämförelsen. Det är kaka på kaka :oP

Felet kan beror på databasens placering, struktur, namn på tabell, stav/slarvefel i koden.

Hej Andreas!

Jag fick din kod att funka efter att jag ändrade fält till falt tycks inte gilla å ä ö.

Men det måste saknas nån avgränsare nånstans får detta resultat

<input type="text" size="40" name="falt1" value="POJ414 <input type="text" size="40" name="falt2" value="FORD SCORPIO 2,0I CLX <input type="text" size="40" name="falt3" value="LJUNGARS, JOHAN MATS MIKAEL <input type="text" size="40" name="falt4" value=" 1992


Kollar vidare!

Tobbe

Var är felet?

Response.Write "<TD><input type=""text"" size=""30"" name=""falt1"" value=""" & Server.HTMLEncode(Falt1.Value) & "</TD>"

Blir så här
<input type="text" size="30" name="falt1" value="FORD SCORPIO 2,0I CLX

Hittat vad som saknades


Tre tassar på slutet """</TD>"

Hej Andreas!

Måste först tacka för koden du fixade fick den att funka efter div, justeringar.

Kan man få till nånting så att det funkar även om fältet inte innhåller något värde.


Response.Write "<TD><input type=""text"" size=""40"" name=""Field1"" value=""" & Server.HTMLEncode(field1.Value) & "</TD>"



Hälsningar
Tobbe

Fixat med:

Server.htmlEncode((field5.Value) & "") & """</TD>"