opret side ved database

Du kunne jo lave en side der gik ind i en database og hentede de oplysninger. f.eks visfirma.asp?kundenr=xxxxxx og så går den ind i databasen og henter de oplysninger fra databasen og sætter dem ind på siden.. det var en mulighed..

men hvordan klarer man så den med link til siden??

Kunne være helt i top hvis en ville kode det ind i.. så jeg kunne se hvordan det hele hang sammen.. for det asp er lige for svært til mig..

Det er jo præcis, som plazm beskriver det. Hver kunde har et unikt ID i tabellen. Når du udskriver kunderne, ser det nogenlunde sådan ud:

Set rs = ConnName.Execute("Select KundeID, Kundenavn From Kunder")
While Not rs.EOF
  Response.Write "<a href='info.asp?id=" & rs("KundeID") & "'>" & rs("Kundenavn") & "</a><br>"
  rs.MoveNext
Wend

På siden "info.asp" kan du så aflæse det ID, der blev medsendt og ud fra det udtrække kundens data fra tabellen:

ID = Request.Querystring("id")

If IsNumeric(CStr(ID)) Then
  Set rs = ConnName.Execute("Select Info1, Info2, Info3 From Kunder Where KundeID = " & ID)
  If Not rs.EOF Then
      Response.Write rs("Info1") & "<br>" & rs("Info2") & "<br>" & rs("Info3")
  Else
      Response.Write "Kunde ikke fundet..."
  End If
End If

Der skulle ikke være en der har lyst til at kode det ind i ???

Jeg synes ellers, det var en udmærket pseudokode, jeg gav dig der.

Hehe... Det er jeg sikker på det var.. men med min forståelse for asp så kan det kun gå galt ;)

Hvis du har den indstilling på forhånd, så skal det jo gå galt. Men jeg laver ikke nogle færdige systemer her. Jeg giver tips og tricks. Take it or leave it :)

okai... men så må jeg lige have hjælp her engang

sådan ser min kunde.asp ud:
<link rel="stylesheet" type="text/css" href="../style.css">
<!-- #include file="../forbindelse.asp" -->
<%
soeg = Request.QueryString("soeg")
if soeg = "" Then
    soegestreng = "'%'"
Else
    soegestreng = "'%" & soeg & "%'"
End if

Set kunde = Server.CreateObject("ADODB.Recordset")
kunde.Open "SELECT * FROM kunde", database, 2, 2
%>
 
<table width="300" border="0" cellspacing="0" cellpadding="0">
  <% While NOT kunde.EOF %>
    <tr>
      <td width="75"><a href="kunder/<% = kunde.Fields("kundenummer") %>.asp" target="content"><% = kunde.Fields("kundenummer") %></a></td>
      <td><a href="kunder/<% = kunde.Fields("kundenummer") %>.asp" target="content"><% = kunde.Fields("firmanavn") %></a></td>
    </tr>
    <% kunde.MoveNext
    Wend %>
</table>

hvis jeg skulle gøre som dig.. skulle jeg så sige:

<link rel="stylesheet" type="text/css" href="../style.css">
<!-- #include file="../forbindelse.asp" -->
<%
soeg = Request.QueryString("soeg")
if soeg = "" Then
    soegestreng = "'%'"
Else
    soegestreng = "'%" & soeg & "%'"
End if

Set rs = ConnName.Execute("Select KundeID, Kundenavn From Kunder")

 
While Not rs.EOF
  Response.Write "<a href='info.asp?id=" & rs("KundeID") & "'>" & rs("Kundenavn") & "</a><br>"
  rs.MoveNext
Wend
%>

Gider du ligge det ind i?

Ja, og så skal du huske at lave info-filen.

info filen???

Den vi kalder "info.asp", hvor kundens oplysninger udtrækkes på baggrund af det ID, der er medsendt.

ID = Request.Querystring("id")

Nu er jeg helt forvirret... jeg skal have to filer.. info.asp og kunde.asp

Så skal min kunde.asp se sådan ud:

<link rel="stylesheet" type="text/css" href="../style.css">
<!-- #include file="../forbindelse.asp" -->
<%
soeg = Request.QueryString("soeg")
if soeg = "" Then
    soegestreng = "'%'"
Else
    soegestreng = "'%" & soeg & "%'"
End if

Set rs = ConnName.Execute("Select KundeID, Kundenavn From Kunder")

 
While Not rs.EOF
  Response.Write "<a href='info.asp?id=" & rs("KundeID") & "'>" & rs("Kundenavn") & "</a><br>"
  rs.MoveNext
Wend
%>

Hvordan skulle min info.asp så se ud?

Den skal se ud, som jeg viste 22/10-2003 00:35:42. Du skal bare huske at udskifte kolonnenavnene med dine egne.


ID = Request.Querystring("id")

If IsNumeric(CStr(ID)) Then
  Set rs = ConnName.Execute("Select Info1, Info2, Info3 From Kunder Where KundeID = " & ID)
  If Not rs.EOF Then
      Response.Write rs("Info1") & "<br>" & rs("Info2") & "<br>" & rs("Info3")
  Else
      Response.Write "Kunde ikke fundet..."
  End If
End If

Jeg droppede projektet, da jeg købte et organiseringsprogram i stedet.. men tak for hjælpen anyways