21. november 2004 - 19:15
Der er
55 kommentarer og 1 løsning
Vil gerne trække en enkelt record ud af db.
Sprm flyttet fra VB-script ->
http://eksperten.dk/spm/563608 Vil gerne trække en enkelt record ud af db og
vise den på en ny side _blank således den kan printes,
eller hvad man nu vil.
Har en database med en masse medlemmer, vil så lave
en simpel box, hvor man intaster navnet (case sensetive)
og så kommer mit problem. bruger man så ikke en form for
Select from Members ("navnet") ???
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
Slettet bruger
21. november 2004 - 19:16
#1
Så får du den da her istedet :-) Noget a la "Select * from members where navn='" & request("navnpåfeltetpåformen") & "'"
21. november 2004 - 19:21
#2
ok det bliver så til Select * from Members where inputname="" & request("Nickname") & "" hvad skal den sidste & "" gører ?
Slettet bruger
21. november 2004 - 19:22
#3
Du mangler lige en ' inde i den, tekstfelter skal omkranses af ' ' når man henter fra dem :-)
Slettet bruger
21. november 2004 - 19:23
#4
Og i starten skal du også lige have den: Select * from Members where inputname='" & request("Nickname") & "'"
21. november 2004 - 19:26
#5
ok roder lige lidt,,
Slettet bruger
21. november 2004 - 19:43
#7
Du skal rette din news.open "select * from Members Order by ID Asc", database til news.open "Select * from Members where inputname='" & request("Nickname") & "'", database for kun at få vist den ene.
21. november 2004 - 20:24
#8
Slettet bruger
21. november 2004 - 20:34
#9
Prøv lige at kom med de første 20 linier af koden.
Slettet bruger
21. november 2004 - 20:34
#10
Altså som den ser ud nu :-)
Slettet bruger
21. november 2004 - 20:36
#11
Hvis det her <% Select * from Members where inputname="'Nickname'" & request("Nickname") & "'" %> er omkring linie 16 så skal det væk for du laver jo selecten længere oppe, så fjern den linie.
21. november 2004 - 20:40
#12
fandt den, og den er væk nu,, jeg får bare fejl 500. Første 20linier ca. **************Start********** <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include virtual="members/forbindelse.asp"--> <% set news = server.CreateObject("ADODB.Recordset") news.open "Select * from Members where inputname='" & request("Nickname") & "'", database %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../css/eviscss.css" rel="stylesheet" type="text/css"> </head> <body> <div align="center"> <table width="240" height="131" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr bgcolor="#FFFF00"> <td height="21" colspan="4" valign="top" class="newstop"><font size="2">Nickname<strong> <% response.Write news.fields("Nickname")%> <em>- </em>ID : *********** SLUT ***********
21. november 2004 - 20:41
#13
Ignorer CSS den fjerner jeg lige med det samme.
Slettet bruger
21. november 2004 - 20:48
#14
Prøv at lave request("Nickname") om til request.form("Nickname")
Slettet bruger
21. november 2004 - 20:52
#16
Ja så er det bare igang med at tjekke for if not news.eof o.s.v. :-) Jeg bliver desværre nødt til at smutte, jeg kigger ind senere eller imorgen for at se om det skulle være blevet løst i mellemtiden, det kunne jo være der kom en anden forbi :-)
21. november 2004 - 20:53
#17
men forstår ikke fejlen for den skulle jo "hoppe" ned til pladsen med det Nickname og når jeg så bruger fks <td height="21" colspan="4" valign="top" class="newstop"><font size="2">Nickname<strong> <% response.Write news.fields("Nickname")%> <em>- </em>ID : <% response.write news.fields("ID") %> </strong> </font> </td> </tr> Skulle den jo vise Nickname og ID uanset min side formatering ikke ?
Slettet bruger
21. november 2004 - 20:54
#18
Jo det skulle den, er du sikker på du har en post med nickname=Vaupell?
21. november 2004 - 21:12
#20
Nu laver den foresten ingen fejl, bare en pæn blank side, hvor jeg har tilføjet ordet slut tilsidst for at se hvor den slutter sit script på siden. hehe,, undre mig meget over den blanke side.. hehe
21. november 2004 - 21:50
#21
Det her er meget det samme som i det andet spørgsmål: )
21. november 2004 - 21:55
#22
det underlige er jo at siden er blevet blank uden fejl..
21. november 2004 - 21:56
#23
to sekunder så prøver jeg lige
21. november 2004 - 21:56
#24
HER KOMMER FULD SIDE ************************* -----START----- ****************************** <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set database = server.CreateObject("ADODB.connection") database.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("..\..\db\evidb.mdb")) %> <% set news = server.CreateObject("ADODB.Recordset") news.open "Select * from Members where Nickname='" & request.form("Nickname") & "'", database %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../css/eviscss.css" rel="stylesheet" type="text/css"> </head> <body> <div align="center"> <% while not news.eof %> <table width="240" height="131" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr bgcolor="#FFFF00"> <td height="21" colspan="4" valign="top" class="newstop"><font size="2">Nickname<strong> <% response.Write news.fields("Nickname")%> <em>- </em>ID : <% response.write news.fields("ID") %> </strong> </font> </td> </tr> <tr> <td width="91" height="19" valign="top"> <div align="left"><font size="2"> <% response.Write news.fields("Proffession") %> </font> </div></td> <td colspan="3" valign="top"> <div align="right"> <strong> <% response.Write news.fields("Rankname") %> <font color="#FFFFFF"> . </font></strong> </div></td> </tr> <tr> <td height="18" colspan="3" valign="top" bgcolor="#FFFF00" class="newscenter"> <div align="left"><font size="2"> Name : <% response.Write news.fields("Firstname") %> , <% response.Write news.fields("Lastname") %> </font> </div></td> <td width="69" rowspan="5" valign="top" bgcolor="#FFFFFF" class="newsicon"> <div align="center"><Img Src="<%=news("Smallphoto")%>" width="60" height="90"></div></td> </tr> <tr> <td height="22"></td> <td width="28"></td> <td width="52"> </td> </tr> <tr> <td height="18"></td> <td></td> <td valign="top"> <% response.Write news.fields("Breed") %> </td> </tr> <tr> <td height="18"></td> <td></td> <td valign="top"> <% response.Write news.fields("Gender") %> </td> </tr> <tr> <td height="15"></td> <td></td> <td></td> </tr> </table> <p> <% news.movenext wend %> </p> SLUT </div> </body> </html> ***************************** ------SLUT------ ************************
21. november 2004 - 22:02
#25
ret lige denne kode som du gjorde med den anden... så den virkede ... så prøver vi som før igen... hehe og ellers fortæl mig fejlen <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set news = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM members WHERE Nickname='" & request.form("nickname") & "'" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/evidb.mdb") strSQL = StrSQL & " Order by ID Asc " news.Open strSQL, strDSN, 1 If Not (news.EOF) Then %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../css/eviscss.css" rel="stylesheet" type="text/css"> </head> <body> <div align="center"> <% tal = 0 while not news.eof tal = tal + 1 %> <table width="240" height="131" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr bgcolor="#FFFF00"> <td height="21" colspan="4" valign="top" class="newstop"><font size="2">Nickname<strong> <% response.Write news.fields("Nickname")%> <em>- </em>ID : <% response.write news.fields("ID") %> </strong> </font> </td> </tr> <tr> <td width="91" height="19" valign="top"> <div align="left"><font size="2"> <% response.Write news.fields("Proffession") %> </font> </div></td> <td colspan="3" valign="top"> <div align="right"> <strong> <% response.Write news.fields("Rankname") %> <font color="#FFFFFF"> . </font></strong> </div></td> </tr> <tr> <td height="18" colspan="3" valign="top" bgcolor="#FFFF00" class="newscenter"> <div align="left"><font size="2"> Name : <% response.Write news.fields("Firstname") %> , <% response.Write news.fields("Lastname") %> </font> </div></td> <td width="69" rowspan="5" valign="top" bgcolor="#FFFFFF" class="newsicon"> <div align="center"><Img Src="<%=news("Smallphoto")%>" width="60" height="90"></div></td> </tr> <tr> <td height="22"></td> <td width="28"></td> <td width="52"> </td> </tr> <tr> <td height="18"></td> <td></td> <td valign="top"> <% response.Write news.fields("Breed") %> </td> </tr> <tr> <td height="18"></td> <td></td> <td valign="top"> <% response.Write news.fields("Gender") %> </td> </tr> <tr> <td height="15"></td> <td></td> <td></td> </tr> </table> <p> <% news.movenext wend end if %> </p> </div> </body> </html>
21. november 2004 - 22:03
#26
og det ikke fordi jeg regner med at den virker.. men vi tilretter den langsomt
21. november 2004 - 22:04
#27
som du nok har lagt mærke til bruger jeg news. som object til næsten alt.. måske news1. hvis jeg har gang i flere ting.. det var med det eksempel fra bogen jeg lærte det. (noglelunde anyway) så hvorfor ændre noget jeg nogle gange virker.. hehe
21. november 2004 - 22:04
#28
ok tilføjere lige ../ ;-)
21. november 2004 - 22:06
#29
hmmm blank side, uanset om jeg bruger et navn som er i db eller ej.
21. november 2004 - 22:14
#30
husker du at linke som i sidste spørgsmål?
21. november 2004 - 22:14
#31
url?NickName=Etnavn
21. november 2004 - 22:24
#33
Her er koden til den siden som brugeren intaster Nickname på ******************* <form action="Singlecard.asp" method="get" name="form1" target="_blank"> <p>Input Name to show info : <input name="Nickname" type="Nickname" id="Nickname"> </p> <p> <input type="reset" name="Reset" value="Reset"> <font color="#FFFFFF">. . .</font> <input type="submit" name="Submit2" value="Submit"> </p> </form> ***********************
21. november 2004 - 22:26
#34
øverst på din whichcard prøv at smide dette ind <% dim mode, user strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("dindatabase") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN user = Request("Nickname") %> og der på din side hvor du udskriver brugerens navn skriv sådan <%=rs("user")%> fjern alle de andre midlertidt.. altså billede osv.. eller lav en test side med det her indhold kun til at se om det virker på... det måske lettere
21. november 2004 - 22:38
#35
*********** COPYwhichcard.asp **************** dim mode, user strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/evidb.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN user = Request("Nickname") %> <form action="CARDsinglecard.asp" method="get" name="form1" target="_blank"> <p>Input Name to show info : <input name="Nickname" type="Nickname" id="Nickname"> </p> <p> <input type="reset" name="Reset" value="Reset"> <font color="#FFFFFF">. . .</font> <input type="submit" name="Submit2" value="Submit"> </p> </form> ***************************************************** ************************ CARDSinglecard.asp *************** <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set news = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM members WHERE Nickname='" & request.form("Nickname") & "'" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/evidb.mdb") strSQL = StrSQL & " Order by ID Asc " news.Open strSQL, strDSN, 1 If Not (news.EOF) Then %> <html> <head> <title>Untitled Document</title> </head> <body> <div align="center"> <% while not news.eof %> Nickname : <% response.Write news.fields("Nickname")%> ID : <% response.write news.fields("ID") %> <% news.movenext wend end if %> *************************************** Prøver dem nu.
21. november 2004 - 22:44
#37
her er et færdigt eksempel.. gem den som CardSinglecard2.asp og test <% dim mode, user strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("din Database") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN user = Request("Nickname") %> <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="styles.css" type="text/css"> </head> <body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#0000CC0"> <div align="center"> <font face="Courier New, Courier, mono" size="2"> </font></div> <font face="Courier New, Courier, mono" size="2"><o:p></o:p><o:p></o:p> </font> <tr> <td> <p align="center"><font face="Courier New, Courier, mono" size="2"><br> </font></p> <div align="center"><br> <font face="Courier New, Courier, mono" size="2"><br> </font> </div> <p><font face="Courier New, Courier, mono" size="2"> <% strSQL = "SELECT * FROM members WHERE NickName='" & request.querystring("Nickname") & "'" Set news = myConn.Execute(strSQL) %> </font></p> <div align="center"> <div align="center"><br> </div> <table width="48%" border="0" align="center" cellpadding="2" cellspacing="1"> <tr> <td height="28" bgcolor="#CCCCCC"> <div align="center"><font face="Courier New, Courier, mono" size="5"><b><%=rs("user")%></b></font></div> </td> </tr> <tr> <td height="28" bgcolor="#CCCCCC"><Img Src="<%=news("Smallphoto")%>" width="60" height="90"></td> </tr> </table> <font color="#FF0000" size="2" face="Courier New, Courier, mono"><strong><br> </strong></font></div> <p align="center"><font face="Courier New, Courier, mono" size="2"><br> </font> </p> <p align="center"> <font face="Courier New, Courier, mono" size="2"> <% myconn.Close Set myconn = Nothing %> </font></p> </body> </html> ændre lige databasen... hvis den ikke virker så øverst ændre user = Request("Nickname") til user = Request.form("Nickname")
21. november 2004 - 22:46
#38
det eksempel jeg kommer med skal hedde CARDSinglecard.asp... altså den side som din form kalder.. har gjort så billede og nick skulle komme frem.. hvis det virker.. resten kan tilføjes bagefter
21. november 2004 - 22:51
#39
jeg er næsten helt sikker på det er fordi du skal have dette <% dim mode, user strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("din Database") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN user = Request("Nickname") %> med så vi må lige arbejde lidt på det.. men prøv at kør det eksempel jeg gav dig. den side som bliver åbne skal jo have fat i infoen på en eller anden måde da det ikke skal vises på samme side og sådan gøres det: ) men mon ikke vi løser det
21. november 2004 - 22:55
#41
prøv <% dim mode, user strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("din Database") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN user = Request.form("Nickname") %> <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="styles.css" type="text/css"> </head> <body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#0000CC0"> <div align="center"> <font face="Courier New, Courier, mono" size="2"> </font></div> <font face="Courier New, Courier, mono" size="2"><o:p></o:p><o:p></o:p> </font> <tr> <td> <p align="center"><font face="Courier New, Courier, mono" size="2"><br> </font></p> <div align="center"><br> <font face="Courier New, Courier, mono" size="2"><br> </font> </div> <p><font face="Courier New, Courier, mono" size="2"> <% strSQL = "SELECT * FROM members WHERE NickName='" & request.querystring("Nickname") & "'" Set news = myConn.Execute(strSQL) %> </font></p> <div align="center"> <div align="center"><br> </div> <table width="48%" border="0" align="center" cellpadding="2" cellspacing="1"> <tr> <td height="28" bgcolor="#CCCCCC"> <div align="center"><font face="Courier New, Courier, mono" size="5"><b><%=news("user")%></b></font></div> </td> </tr> <tr> <td height="28" bgcolor="#CCCCCC"><Img Src="<%=news("Smallphoto")%>" width="60" height="90"></td> </tr> </table> <font color="#FF0000" size="2" face="Courier New, Courier, mono"><strong><br> </strong></font></div> <p align="center"><font face="Courier New, Courier, mono" size="2"><br> </font> </p> <p align="center"> <font face="Courier New, Courier, mono" size="2"> <% myconn.Close Set myconn = Nothing %> </font></p> </body> </html>
21. november 2004 - 22:55
#42
alt dataen i DBen ser jo sådan her ud DB--> (Tabel)-Members--> (data)-Nickname. (data)-ID. osv.
21. november 2004 - 22:57
#43
da i samme db indeholder også news items jeg bruger til nyhederne.. men under en anden tabel
21. november 2004 - 22:58
#44
yep og user er en variable vi erklærer som får NickName 's værdi: ) men fejlen før var fordi jeg havde skrevet rs istedet for news som du selv gjorde mig opmærksom på før.. men prøv det jeg skrev før.. rettede det nemlig der
21. november 2004 - 22:58
#45
Item cannot be found in the collection corresponding to the requested name or ordinal.
21. november 2004 - 23:00
#46
^^samme fejl linie 39 "user" da dataen hedder Nickname i db, skulle den så ikke ændres til Nickname i dokumentet også
21. november 2004 - 23:00
#47
21. november 2004 - 23:02
#48
godt nok!! nu kan du bare smide de andre felter ind:O) Ser ud til du kommer langt med din hjemmeside i dag hehe
21. november 2004 - 23:03
#49
Jeg ville have skrevet du skulle prøve dette hvis det heller ikke virkede <% dim mode, user strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("din Database") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN user = Request.form("Nickname") %> <html> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="styles.css" type="text/css"> </head> <body bgcolor="#FFFFFF" text="#000000" link="#0000CC" vlink="#0000CC" alink="#0000CC0"> <div align="center"> <font face="Courier New, Courier, mono" size="2"> </font></div> <font face="Courier New, Courier, mono" size="2"><o:p></o:p><o:p></o:p> </font> <tr> <td> <p align="center"><font face="Courier New, Courier, mono" size="2"><br> </font></p> <div align="center"><br> <font face="Courier New, Courier, mono" size="2"><br> </font> </div> <p><font face="Courier New, Courier, mono" size="2"> <% strSQL = "SELECT * FROM members WHERE NickName= " & user Set news = myConn.Execute(strSQL) %> </font></p> <div align="center"> <div align="center"><br> </div> <table width="48%" border="0" align="center" cellpadding="2" cellspacing="1"> <tr> <td height="28" bgcolor="#CCCCCC"> <div align="center"><font face="Courier New, Courier, mono" size="5"><b><%=news("user")%></b></font></div> </td> </tr> <tr> <td height="28" bgcolor="#CCCCCC"><Img Src="<%=news("Smallphoto")%>" width="60" height="90"></td> </tr> </table> <font color="#FF0000" size="2" face="Courier New, Courier, mono"><strong><br> </strong></font></div> <p align="center"><font face="Courier New, Courier, mono" size="2"><br> </font> </p> <p align="center"> <font face="Courier New, Courier, mono" size="2"> <% myconn.Close Set myconn = Nothing %> </font></p> </body> </html>
21. november 2004 - 23:04
#51
Godt nok hehe og nu ligner dine ASP sider hinanden i toppen.. angående database kald! tester lige: )
21. november 2004 - 23:05
#52
Perfekt! Det virker som det skal: )
21. november 2004 - 23:08
#53
Yes.. nu skal jeg til at integrere det hele på siden, og give det lidt formatering.. hvilket er det nemeste. og til allersidst lige knalde lidt CSS på, så jeg kan få gang i nogle farve temaer. 1000 tak for hjælpen
21. november 2004 - 23:12
#54
Ingen årsag: ) Lærte selv noget nyt hehe: )
21. november 2004 - 23:34
#55
foresten hvilket program bruger du, ? da formateringen var låst helt fast, så jeg ikke kunne ændre den.. har lavet en ny nu, og alt virker.. ;-) Jeg kunne ihvertfal ikke rediger meget m. DW.
21. november 2004 - 23:47
#56
Jeg bruger DW hehe så lyder da underligt
Kurser inden for grundlæggende programmering