CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

mcclaud Nybegynder

19. oktober 2008 - 18:34 Der er 9 kommentarer og
1 løsning

FrontPage resultat-database, tilfældige poster

Hej alle

Jeg har en FrontPage-database, som jeg gerne vil have, at computeren trækker 5 tilfældige poster ud. Hvordan gør jeg det? :o)

<% end if %>
<%
fp_sQry="SELECT * FROM ""titles_lme"" WHERE (artist = '::artist::') ORDER BY title ASC"
fp_sDefault="artist="
fp_sNoRecords="<tr><td colspan=14 align=""LEFT"" width=""100%""></td></tr>"
fp_sDataConn="lme3db2"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=3
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&artist=200&title=200&intelli_title=200&value=5&new=5&group=200&time=200&tempo=200&year=200&decade=200&extra1=200&extra2=200&extra3=200&featuring1=200&featuring2=200&featuring3=200&composer=200&"
fp_iDisplayCols=14
fp_fCustomQuery=False
BOTID=1
fp_iRegion=BOTID
%>

Synes godt om

ldanielsen Nybegynder

21. oktober 2008 - 13:05 #1

Det er vist en forkert kategori.

Hvilken database er det? Mig bekendt er der ikke en Frontpage database, det du mener er nok at du lader Frontpage hjælpe dig med at connect'e til en database.

Find ud af hvilken database det er, og post spm. i den rigtigt kategori

Synes godt om

w13 Novice

21. oktober 2008 - 19:32 #2

Måske med ORDER BY rand() men ja, det kommer an på databasen.

Synes godt om

mcclaud Nybegynder

21. oktober 2008 - 20:10 #3

Det virker desværre ikke... Jeg har eksperimenteret en del med ORDER BY-delen. Det eneste, som fungerede var ORDER BY RND(). Resultatet var en sortering i tilfældig rækkefølge, men desværre altid den samme tilfældige rækkefølge. Jeg vil gerne, at de 5 udtrukne poster er forskellige ved hvert tryk.

:o)

Synes godt om

arne_v Ekspert

21. oktober 2008 - 20:41 #4

proev:

fp_sQry="SELECT TOP 5 * FROM ""titles_lme"" WHERE (artist = '::artist::') ORDER BY NEWID()"

Synes godt om

mcclaud Nybegynder

21. oktober 2008 - 20:56 #5

Det virker desværre ikke med ORDER BY NEWID()...

Synes godt om

w13 Novice

21. oktober 2008 - 21:16 #6

Vi skal vide, hvilken database, det drejer sig om. =)

Synes godt om

mcclaud Nybegynder

21. oktober 2008 - 22:37 #7

Jeg håber, at I kan finde svaret i nedenstående kode:

<html>

<head>
<% ' FP_ASP -- ASP, der er genereret automatisk af en FrontPage-komponent. Undlad at redigere.
FP_LCID = 1030 %>
<meta http-equiv="Content-Language" content="da">
<% ' FP_ASP -- ASP, der er genereret automatisk af en FrontPage-komponent. Undlad at redigere.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>lme3</title>
<base target="_self">

<script type="text/javascript" src="applications\helpbox.js"></script>

</head>


<%
refpage = 0
refpage = Request("refpage") + 1
%>


<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" background="graphics/background/background_centre.jpg">

<form BOTID="0" METHOD="POST" action="titledb2.asp">
<input type="hidden" name="fpdbr_0_PagingMove" value=" |< ">
</form>

<p><SCRIPT language=JavaScript1.2>
function disableselect(e){
return false
}
function reEnable(){
return true
}
document.onselectstart=new Function ("return false")
</SCRIPT></p>

<table border="0" width="100" cellspacing="0" cellpadding="0" height="30" id="bottom_help" style="position: absolute; left: 924px; top: 610px; z-index:0">
<tr>
<td>
<a onClick="return show_hide_box(this,190,190,'2px dotted')" href="help/help_titledb.htm">
<img border="0" src="graphics/menubuttons/bottom/menubutton_help.gif" width="100" height="30"></a></td>
</tr>
</table>

<table border="0" width="1024" cellspacing="0" cellpadding="0" height="30" id="bottom_all" style="position: absolute; top: 610px; left: 0px; width: 1024px; height: 30px; z-index: -1" align="left">
<tr>
<td>
</td>
</tr>
</table>

<table border="0" width="512" cellpadding="0" style="font-size: 1pt; border-collapse: collapse" height="15" id="table1">
<tr>
<td> </td>
</tr>
</table>
<table cellpadding="0" style="font-family: Barmeno Regular; font-size: 12pt; font-variant: small-caps; color: #858585; font-weight: bold; border-collapse: collapse">
<tbody>

<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>Komponenten Databaseresultater på denne side kan ikke vise databaseindhold. Siden skal have et filnavn, der slutter med '.asp', og webstedet skal findes på en server, der understøtter Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM ""titles_lme"" WHERE (intelli_title LIKE '%::intelli_title::%') ORDER BY title ASC,artist ASC"
fp_sDefault="intelli_title="
fp_sNoRecords="<tr><td colspan=14 align=""LEFT"" width=""100%""></td></tr>"
fp_sDataConn="lme3db2"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=5
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&artist=200&title=200&intelli_title=200&value=5&new=200&group=200&time=200&tempo=200&year=200&decade=200&extra1=200&extra2=200&extra3=200&featuring1=200&featuring2=200&featuring3=200&composer=200&"
fp_iDisplayCols=14
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>

<tr>
<td height="35" width="20"> </td>
<td height="35" width="50" align="center">
<a target="centralframe" href="artistinfodb2.asp?artist=<%=FP_FieldURL(fp_rs,"artist")%>&featuring1=<%=FP_FieldURL(fp_rs,"featuring1")%>&featuring2=<%=FP_FieldURL(fp_rs,"featuring2")%>&featuring3=<%=FP_FieldURL(fp_rs,"featuring3")%>">
<img border="0" src="graphics/title/title_button_a.gif"></a></td>
<td height="35" width="67" background="graphics/title/title_artist.gif"> </td>
<td height="35" width="725" background="graphics/title/title_background_1.gif"> 
<font face="Barmeno Bold" style="font-size: 15pt; font-weight: 400" color="#000000">
<%=FP_FieldVal(fp_rs,"artist")%></font>  
<%=FP_FieldVal(fp_rs,"featuring1")%>  
<%=FP_FieldVal(fp_rs,"featuring2")%>  
<%=FP_FieldVal(fp_rs,"featuring3")%></td>
<td height="35" width="50" background="graphics/title/title_tempo.gif"> </td>
<td height="35" width="92" align="center" background="graphics/title/title_background_4.gif">
<%=FP_FieldVal(fp_rs,"tempo")%></td>
<td height="35" width="20"> </td>
</tr>
<tr>
<td height="35" width="20"> </td>
<td height="35" width="50" align="center">
<a target="centralframe" href="titledb2_confirm.asp?artist=<%=FP_FieldURL(fp_rs,"artist")%>&title=<%=FP_FieldURL(fp_rs,"title")%>"><img border="0" src="graphics/title/title_button_t.gif" width="50" height="35"></a></td>
<td height="35" width="67" background="graphics/title/title_title.gif"> </td>
<td height="35" width="725" background="graphics/title/title_background_2.gif"> 
<font face="Barmeno Bold" style="font-size: 15pt; font-weight: 400" color="#000000">
<%=FP_FieldVal(fp_rs,"title")%></font>  
<img border="0" src="graphics/buttons/<%=FP_FieldLink(fp_rs,"new")%>.gif" align="absmiddle"></td>
<td height="35" width="50" background="graphics/title/title_year.gif"> </td>
<td height="35" width="92" align="center" background="graphics/title/title_background_5.gif">
<%=FP_FieldVal(fp_rs,"year")%></td>
<td height="35" width="20"> </td>
</tr>
<tr>
<td height="34" width="20"> </td>
<td height="34" width="50" align="center" valign="bottom" background="graphics/title/title_button_v_background.gif">
<a target="centralframe" href="versiondb2.asp?extra1=<%=FP_FieldURL(fp_rs,"extra1")%>"><img border="0" src="graphics/title/<%=FP_FieldLink(fp_rs,"extra3")%>.gif" align="middle"></a></td>
<td height="34" width="67" background="graphics/title/title_composer.gif"> </td>
<td height="34" width="725" background="graphics/title/title_background_3.gif"> 
<%=FP_FieldVal(fp_rs,"composer")%></td>
<td height="34" width="50" background="graphics/title/title_time.gif"> </td>
<td height="34" width="92" align="center" background="graphics/title/title_background_6.gif">
<%=FP_FieldVal(fp_rs,"time")%></td>
<td height="34" width="20"> </td>
</tr>
<tr>
<td height="15" width="1024" colspan="7" style="font-size: 1pt; color: #FAFAFA">
<p>
<%=FP_FieldVal(fp_rs,"extra1")%><%=FP_FieldVal(fp_rs,"extra2")%><%=FP_FieldVal(fp_rs,"extra3")%></td>
</tr>

</tbody>
</table>

</body>

</html>

Synes godt om

arne_v Ekspert

22. oktober 2008 - 00:46 #8

Jeg gaetter paa at DB definitionen ligger i fpdblib.inc !

Den fejl meddelelse du faar kan ogsaa indikere hvilken database det er.

Synes godt om

mcclaud Nybegynder

22. oktober 2008 - 07:42 #9

Sådan her ser min fpdblib.inc-fil ud:

<%

Sub FP_SetLocaleForPage
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Err.Clear
if FP_CodePage <> 0 then
Session.CodePage = FP_CodePage
if Err.Number <> 0 then Session.CodePage = Session("FP_OldCodePage")
end if
Err.Clear
if FP_LCID <> 0 then
Session.LCID = FP_LCID
if Err.Number <> 0 then Session.LCID = Session("FP_OldLCID")
end if
End Sub

Sub FP_RestoreLocaleForPage
On Error Resume Next
if Session("FP_OldCodePage") <> 0 then
Session.CodePage = Session("FP_OldCodePage")
end if
if Session("FP_OldLCID") <> 0 then
Session.LCID = Session("FP_OldLCID")
end if
Err.Clear
End Sub

Function FP_HTMLEncode(str)

FP_HTMLEncode = str
FP_HTMLEncode = Replace(FP_HTMLEncode,"&","^^@^^")
FP_HTMLEncode = Server.HTMLEncode(FP_HTMLEncode)
FP_HTMLEncode = Replace(FP_HTMLEncode,"^^@^^","&")

End Function

Function FP_FieldVal(rs, fldname)

FP_FieldVal = FP_HTMLEncode(FP_Field(rs, fldname))
if FP_FieldVal = "" then FP_FieldVal = " "

End Function

Function FP_Field(rs, fldname)

If Not IsEmpty(rs) And Not (rs Is Nothing) and Not IsNull(rs(fldname)) Then
Select Case rs(fldname).Type
Case 128, 204, 205 ' adBinary, adVarBinary, adLongVarBinary
FP_Field = "[#BINARY#]"
Case 201, 203 ' adLongVarChar, adLongVarWChar
if rs(fldname).DefinedSize > 255 then
' check for Access hyperlink fields (only absolute http links)
fp_strVal = rs(fldname)
fp_idxHash1 = InStr(LCase(fp_strVal),"#http://")
if fp_idxHash1 > 0 then
fp_idxHash2 = InStr(fp_idxHash1+1,fp_strVal,"#")
if fp_idxHash2 > 0 then
' this is an Access hyperlink; extract the URL part
fp_strVal = Mid(fp_strVal,fp_idxHash1+1)
if Right(fp_strVal,1) = "#" then
fp_strVal = Left(fp_strVal,Len(fp_strVal)-1)
end if
end if
end if
FP_Field = fp_strVal
else
FP_Field = rs(fldname)
end if
Case Else
FP_Field = rs(fldname)
End Select
Else
FP_Field = ""
End If

End Function

Function FP_FieldHTML(rs, fldname)

FP_FieldHTML = FP_HTMLEncode(FP_Field(rs, fldname))

End Function

Function FP_FieldURL(rs, fldname)

FP_FieldURL = Server.URLEncode(FP_Field(rs, fldname))

End Function

Function FP_FieldLink(rs, fldname)

FP_FieldLink = Replace(FP_Field(rs, fldname), " ", "%20")

End Function

Sub FP_OpenConnection(oConn, sAttrs, sUID, sPWD, fMSAccessReadOnly)

Dim sTmp
Dim sConnStr
Dim fIsAccessDriver

fIsAccessDriver = (InStr(LCase(sAttrs), "microsoft access driver") > 0)
sConnStr = FP_RemoveDriverWithDSN(sAttrs)
sTmp = sConnStr

On Error Resume Next

If fMSAccessReadOnly And fIsAccessDriver Then

sTmp = sTmp & ";Exclusive=1;ReadOnly=1"

Err.Clear
oConn.Open sTmp, sUID, sPWD
If Err.Description = "" Then Exit Sub

End If

Err.Clear
oConn.Open sConnStr, sUID, sPWD

End Sub

Function FP_RemoveDriverWithDSN(sAttrs)

FP_RemoveDriverWithDSN = sAttrs

sDrv = "driver="
sDSN = "dsn="
sLC = LCase(sAttrs)
if InStr(sLC, sDSN) < 1 then exit function

idxFirst = InStr(sLC, sDrv)
if idxFirst < 1 then exit function
idxBeg = idxFirst + Len(sDrv)
if Mid(sLC,idxBeg,1) = "{" then
idxEnd = InStr(idxBeg, sLC, "}")
if idxEnd > 0 and Mid(sLC,idxEnd+1,1) = ";" then
idxEnd = idxEnd + 1
end if
else
idxEnd = InStr(idxBeg, sLC, ";")
end if
if idxEnd < 1 then idxEnd = Len(sLC)

FP_RemoveDriverWithDSN = Left(sAttrs,idxFirst-1) & Mid(sAttrs,idxEnd+1)

End Function

Sub FP_OpenRecordset(rs)

On Error Resume Next
rs.Open

End Sub

Function FP_ReplaceQuoteChars(sQry)

Dim sIn
Dim sOut
Dim idx

sIn = sQry
sOut = ""

idx = InStr(sIn, "%%")

Do While (idx > 0)

sOut = sOut & Left(sIn, idx - 1)
sIn = Mid(sIn, idx + 2)
if (Left(sIn,1) = "%") And (Left(sIn,2) <> "%%") then
sIn = Mid(sIn, 2)
sOut = sOut & "%"
end if
sOut = sOut & "::"

idx = InStr(sIn, "%%")
if idx > 0 then
sOut = sOut & Left(sIn, idx - 1)
sIn = Mid(sIn, idx + 2)
sOut = sOut & "::"
if (Left(sIn,1) = "%") And (Left(sIn,2) <> "%%") then
sIn = Mid(sIn, 2)
sOut = sOut & "%"
end if
end if

idx = InStr(sIn, "%%")

Loop

sOut = sOut & sIn

FP_ReplaceQuoteChars = sOut

End Function

Sub FP_Close(obj)

On Error Resume Next

obj.Close

End Sub

Sub FP_SetCursorProperties(rs)

On Error Resume Next

rs.CursorLocation = 3 ' adUseClient
rs.CursorType = 3 ' adOpenStatic

End Sub

%>

Synes godt om

mcclaud Nybegynder

26. oktober 2008 - 00:41 #10

Har selv løst problemet... :o)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Database management kurser

Computerworld tilbyder specialiserede kurser i database-management

Se alle Database management kurser

Flere spørgsmål fra MS SQL kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Danske karakterter i simpel insert Af boris i MS SQL	2	25/04/202414:05	29/04/202411:41
Kan ikke connecte til sql serveren Af simsen i MS SQL	2	05/01/202417:02	05/01/202420:51
Count med NOT IN og 2 conditions Af sorenmt84 i MS SQL	2	08/11/202308:37	08/11/202310:32
Top X af group Af totalpc i MS SQL	1	18/10/202321:23	09/11/202313:08
Row level security på flere kolonner Af dane022 i MS SQL	8	30/08/202321:28	01/09/202300:55

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS