Avatar billede minielsen Nybegynder
22. april 2002 - 12:31 Der er 5 kommentarer og
1 løsning

Url i database

Du er her : Eksperten : Databaser : Access : Url i database :
Url i database    60 point fra minielsen
Er det muligt at linke fra et felt i en database?

Lidt svært at forklare men prøv at gå ind på vores side www.comgros.dk og vælg "database"

Indtast en vare (brug bu2520df) herefter ses resultatet fra vores db.

Det jeg ønsker er at "varenavn" det der står med blåt (i dette tilfælde bu2520df) bliver klikbart til en side der feks. hedder bestil.htm

Alle link skal føre til denne side, hvor der er en form til bestilling i formen skal der nu stå "bu2520df" så kunden slipper for at indtaste det igen.

Hvordan ?

bestil.htm kan ses på www.comgros.dk/bestil.htm
De er her "varenavn" skal indeholde tekst fra det søgte.

Avatar billede meyer Nybegynder
22. april 2002 - 12:33 #1
Du laver en <a href="bestil.asp?Vare=<%=Rs("dit-database-felt")%>"><%=Rs("dit-database-felt")%></a>

så omdøber du din bestil.htm til bestil.asp og indsætter denne her:

<% Vare = Request("Vare") %>

og din <INPUT TYPE=text NAME=kommentarer VALUE="<%=vare%>" SIZE=20>
Avatar billede meyer Nybegynder
22. april 2002 - 12:34 #2
eller bare:

<INPUT TYPE=text NAME=kommentarer VALUE="<%=request("vare")%>" SIZE=20>
Avatar billede minielsen Nybegynder
22. april 2002 - 12:38 #3
Hvor sætter jeg det første ind?

Her er koden.
<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("partsearch.html")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Felt1 FROM Comgros WHERE"
strSQL = strSQL & " (Felt1 LIKE '" & strKeyword & "')"

' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/parts.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<p><strong>Resultat af søgning.</p></strong>"
    Response.Write "<table border=1>"
    Response.Write "<tr><th>Varenavn</th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr><td><font color=blue><strong>" & rs("Felt1") & "<th>Er fundet på vores lager.</th></td></tr>"
        Response.Write "<p><font color=blue><strong>For nærmere information ring 98136569</p>"
        rs.MoveNext
    Loop
    Response.Write "</table>"
   
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p><font color=blue><strong>Denne vare har vi ikke registreret hos os.</p>"
    Response.Write "<p><font color=blue><strong>Husk der må <font color=red>ikke <font color=blue>være mellemrum i søgningen.</p>"
    End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
Avatar billede meyer Nybegynder
22. april 2002 - 12:42 #4
Do While Not rs.EOF
        Response.Write "<tr><td><a href='bestil.asp?Vare=" & rs("felt1") & "'><font color=blue><strong>" & rs("Felt1") & "<th>Er fundet på vores lager.</th></td></tr>"
Avatar billede minielsen Nybegynder
22. april 2002 - 12:47 #5
Den første del virker helt fint, men hvad med bestil.asp?
Sorry jeg er ikke for stiv til dette :)


her er koden:
<HTML>
<!--This file created 12:05  18-04-02 by                          3.0-->
<HEAD>
  <TITLE>dkindex</TITLE>
  <META NAME=GENERATOR CONTENT="                3.0">
  <X-CLARIS-WINDOW TOP=0 BOTTOM=439 LEFT=0 RIGHT=788>
  <X-CLARIS-REMOTESAVE SERVER="www.comgros.dk" USER=cis2342 DIR="" FILE="">
  <X-CLARIS-TAGVIEW MODE=minimal>
<META NAME="Author" CONTENT="Michael Nielsen"><META NAME="Reply-to" CONTENT="comgros@monitor.dk"><META NAME="Copyright" CONTENT="Comgros Monitor Service"><META NAME="Title" CONTENT="Comgros Monitor Service"><META NAME="Description" CONTENT="Reparation af monitorer"><META NAME="Keywords" CONTENT="ibm,pluto,6543,st6370,14/15,digital,compaq,philips,targa,ctx,icl,fujitsu,nokia,eizo,miro,reparation,repair,reservedele,spareparts,monitor,service,comgros,danmark,denmark,aalborg,jylland,nord,professionel"><META NAME="Rating" CONTENT="General"><META NAME="Robots" CONTENT="all"><META NAME="Revisit-after" CONTENT="1 days"><META HTTP-EQUIV="Expires" CONTENT="Fri, 1 Jan 2010 00:00:01 GMT">
</HEAD>
<BODY BGCOLOR="#D3E2D3">
<PRE><CENTER><FONT SIZE="+2" COLOR="#FF6666"><B>        </B></FONT><FONT SIZE="+2" COLOR="#000000"><B>Reservedels bestilling </B></FONT><FONT COLOR="#000000"><B>&nbsp;</B></FONT></CENTER></PRE>

<CENTER><TABLE>
  <TR>
      <TD WIDTH="20%">
        <P></P>
      </TD>
      <TD>
        <H3>&nbsp;</H3>
       
        <P><FORM ACTION="/cgi-bin/FormMail.cgi" METHOD=GET>
            <P><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2>
              <TR>
                  <TD>
                    <P>Firmanavn</P>
                  </TD>
                  <TD>
                    <P><INPUT TYPE=text NAME=navn VALUE="" SIZE=20></P>
                  </TD>
                  <TD>
                    <P></P>
                  </TD>
              </TR>
              <TR>
                  <TD>
                    <P>Email/telefon</P>
                  </TD>
                  <TD>
                    <P><INPUT TYPE=text NAME=email VALUE="" SIZE=20></P>
                  </TD>
                  <TD>
                    <P></P>
                  </TD>
              </TR>
              <TR>
                  <TD VALIGN=top>
                    <P>Varenavn</P>
                  </TD>
                  <TD>
                    <P><INPUT TYPE=text NAME=kommentarer VALUE="" SIZE=20></P>
                  </TD>
                  <TD>
                    <P></P>
                  </TD>
              </TR>
            </TABLE>
            </P>
           
            <P><TABLE>
              <TR>
                  <TD>
                    <P></P>
                  </TD>
                  <TD>
                    <CENTER><INPUT TYPE=submit NAME=submit VALUE="Send til Comgros"></CENTER>
                  </TD>
                  <TD WIDTH="50%">
                    <P></P>
                  </TD>
                  <TD>
                    <P><INPUT TYPE=reset VALUE="Slet alt"></P>
                  </TD>
              </TR>
            </TABLE>
            <INPUT TYPE=hidden NAME=recipient VALUE="comgros@monitor.dk">
            <INPUT TYPE=hidden NAME=subject VALUE=Reservedele>
            <INPUT TYPE=hidden NAME=redirect VALUE="http://www.comgros.dk/bestiltak.htm">
            <INPUT TYPE=hidden NAME=required VALUE="navn,email,kommentarer">
            <INPUT TYPE=hidden NAME=sort VALUE="order:navn,email,adresse,pnrby,tlf,kommentarer">
        </FORM></P>
      </TD>
  </TR>
</TABLE>
</TD> </TR> </TABLE></CENTER>
</BODY>
</HTML>
Avatar billede minielsen Nybegynder
22. april 2002 - 12:58 #6
Ahh jeg har fattet det, tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester