Kandu.dk - Implementering af kode i et Frontpage genereret side.:-/


/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg

Glemt dit kodeord?

Brugernavn*

Kodeord *

Husk mig

Brugerservice

Kom godt i gang

Bliv medlem

Seneste indlæg

Find en bruger

Stil et spørgsmål

Skriv et tip

Fortæl en ven

Pointsystemet

Kontakt Kandu.dk

Emnevisning

Kategorier

Alfabetisk

Karriere

Interesser

Teknologi

Reklame

Top 10 brugere

ASP

#	Navn	Point
1	smorch	9259
2	Harlekin	1866
3	molokyle	1040
4	Steffanst..	758
5	gandalf	657
6	smilly	564
7	gibson	560
8	cumano	530
9	MouseKeep..	480
10	Random	410

Implementering af kode i et Frontpage gene~
Fra : Kristian Asmussen

Dato : 01-12-04 13:42

Har overtaget et projekt der er lavet i frontpage (damn noget slamkode)
hvor jeg skal implementere en søgefunktion, har lavet denne og testet om
den virkede, og det gør den, men nu kommer der en intern serverfejl nu hvor
jeg har implementeret det i frontpage koden.

Har lagt koden nedenunder, nogen der umidelbart kan se nogle fejl, skal også
lige siges at jeg er helt ny i ASP.
---------------------------------------
Kode Start:
---------------------------------------



<html>

<head>
<% ' FP_ASP -- ASP 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>Resultater -- Liste</title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<base target="_self">
</head>

<body bgcolor="#FFFFFF" background="../../../Image4.jpg">

<script Language="JavaScript">
</script>

<table width="100%" align=left>
<tr>
<td width="50%">
 Databaseeditor -
Resultater
</td>
<td width="50%" align=right>
<table>
<tr>
<td>
<a href="../results_page.asp" target="_top">Siden Resultater</a> |
<a href="../submission_form.asp" target="_top">Sendeformular</a> |
Databaseredigering
</td>
</tr>
</table>
</td>
</tr>
</table>

 

<form name="form_list" target="_self" action="list.asp" method="POST"
OnClick="OnClickBtn(this)">
<table>

<td> 
<input name="btnAction" type="submit" value="Tilføj ny post"
OnClick="OnClickBtn(this)">
<input name="btnAction2" type="submit" value="Slet markerede poster"
onClick="OnClickBtn(this)">
</form>
<FORM ACTION='list.asp?Mode=soeg' METHOD='POST'>
<select name='valg'>
<option value='fornavn'>Fornavn</option>
<option value='efternavn'>Efternavn</option>
<option value='cpr'>CPR-Nr.</option>
</select>
Valgmuligheder
<input type='TEXT' name='search'>
<input name="SUBMIT" type='SUBMIT' value='Søg'>
</form>

</td>

<hr>

<%
end if
if mode = "soeg" then
strSearch = Request.Form("search")

If strSearch <> "" Then
Dim strConnect, SQL
Dim RS
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("../../../fpdb/test.mdb") & ";"

Select Case Request.Form("valg")

Case "fornavn"

SQL = "SELECT * FROM Resultater WHERE INSTR(Resultater.Fornavn,'" &
strSearch & "')"

Set RS = Server.CreateObject("Adodb.Recordset")
RS.Open SQL,strConnect

Do Until RS.EOF

Response.Write RS("Fornavn") &" - " & RS("Efternavn") &" - " & RS("CPR")
& " "

RS.MoveNext
LOOP

RS.Close

Case "efternavn"

SQL = "SELECT * FROM Resultater WHERE INSTR(Resultater.Efternavn,'" &
strSearch & "')"

Set RS = Server.CreateObject("Adodb.Recordset")
RS.Open SQL,strConnect

Do Until RS.EOF

Response.Write RS("Fornavn") &" - " & RS("Efternavn") &" - " & RS("CPR")
& " "

RS.MoveNext
LOOP

RS.Close

Case "cpr"

SQL = "SELECT * FROM Resultater WHERE INSTR(Resultater.CPR,'" & strSearch &
"')"

Set RS = Server.CreateObject("Adodb.Recordset")
RS.Open SQL,strConnect

Do Until RS.EOF

Response.Write RS("Fornavn") &" - " & RS("Efternavn") &" - " & RS("CPR")
& " "

RS.MoveNext
LOOP

RS.Close

Case Else

response.write "Foretag et valg!"

end select

End If

%>

<table border="0">
<thead>
<tr>

<td></td>

<td bgcolor="black">Nøgle</td>
<td bgcolor="black">Fornavn</td>
<td bgcolor="black">CPR</td>
<td bgcolor="black">Mellemnavn</td>
<td bgcolor="black">Efternavn</td>
<td bgcolor="black">Postnummer</td>
<td bgcolor="black">Telefon</td>
<td bgcolor="black">Mobiltelefon</td>
<td bgcolor="black">Email</td>
<td bgcolor="black">Bankkonto</td>
<td bgcolor="black">Bankreg</td>
<td bgcolor="black">arbejdsløs</td>
<td bgcolor="black">TilmeldtAF</td>
<td bgcolor="black">AFafd</td>
<td bgcolor="black">Handlingsplan</td>
<td bgcolor="black">Akasse</td>
<td bgcolor="black">Akassenavn</td>
<td bgcolor="black">AkasseAFD</td>
<td bgcolor="black">Dagpengeberettiget</td>
<td bgcolor="black">Lønunderudd</td>
<td bgcolor="black">Trækprocent</td>
<td bgcolor="black">SkattefradragprUge</td>
<td bgcolor="black">Erduiarbejde</td>
<td bgcolor="black">StillingsbetegnelseHvisdueriarbejde</td>
<td bgcolor="black">Erduellerharduselvsagtditjobop</td>
<td bgcolor="black">Harduenuddannelse</td>
<td bgcolor="black">HvisJahvilkenuddannelsehardu</td>
<td bgcolor="black">hardubrugtdenneindenfordesidste5år</td>
<td bgcolor="black">Vilduudføreditjobunderuddannelsen</td>
<td bgcolor="black">ErDuSelvstændigerhversdrivende</td>
<td bgcolor="black">HvisJahvilkentypebeskæftigelse</td>
<td bgcolor="black">VilDumodtageAndenGodtgørelse</td>
<td bgcolor="black">HvilkenAndenGodtgørelse</td>
<td bgcolor="black">Erduomfattetafjobrotation</td>
<td bgcolor="black">Modtagerduovergangsydelse</td>
<td bgcolor="black">ErDuansatiFleksJob</td>
<td bgcolor="black">Erdupåkontanthjælp</td>
<td bgcolor="black">KommunalSagsbehandler</td>
<td bgcolor="black">DagligtAntalKMhvisOver24</td>
<td bgcolor="black">Kursistgodkendelse</td>

</tr>
</thead>

<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 Resultater ORDER BY Nøgle ASC"
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=42 align=left width=""100%"">Ingen
returnerede poster</td></tr>"
fp_sDataConn="test"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=5
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=42
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>



<tr>

<td><input type="checkbox" name="<%=FP_FieldURL(fp_rs,"Nøgle")%>"
value="ON"></td>

<td><a href="detail.asp?Nøgle=<%=FP_FieldURL(fp_rs,"Nøgle")%>"
target="detail">
<%=FP_FieldVal(fp_r
s,"Nøgle")%></a></td>
<td>
<%=FP_FieldVal(fp_r
s,"Fornavn")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"CPR")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Mellemnavn")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Efternavn")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Postnummer")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Telefon")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Mobiltelefon")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Email")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Bankkonto")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Bankreg")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"arbejdsløs")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"TilmeldtAF")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"AFafd")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Handlingsplan")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Akasse")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Akassenavn")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"AkasseAFD")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Dagpengeberettiget")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Lønunderudd")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Trækprocent")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"SkattefradragprUge")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Erduiarbejde")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"StillingsbetegnelseHvisdueriarbejde")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Erduellerharduselvsagtditjobop")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Harduenuddannelse")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"HvisJahvilkenuddannelsehardu")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"hardubrugtdenneindenfordesidste5år")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Vilduudføreditjobunderuddannelsen")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"ErDuSelvstændigerhversdrivende")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"HvisJahvilkentypebeskæftigelse")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"VilDumodtageAndenGodtgørelse")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"HvilkenAndenGodtgørelse")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Erduomfattetafjobrotation")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Modtagerduovergangsydelse")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"ErDuansatiFleksJob")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Erdupåkontanthjælp")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"KommunalSagsbehandler")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"DagligtAntalKMhvisOver24")%></td>
<td>
<%=FP_FieldVal(fp_r
s,"Kursistgodkendelse")%></td>

</tr>




</tbody>
</table>

</form>

</body>

</html>
---------------------------------------
Kode Slut
---------------------------------------
--
Venlig Hilsen / Best Regards
Kristian Asmussen

terje (01-12-2004)

Kommentar
Fra : terje

Dato : 01-12-04 16:07

Kristian Asmussen wrote:

</1110 kode linjer i min editor>

> Har lagt koden nedenunder, nogen der umidelbart kan se nogle fejl, skal også
> lige siges at jeg er helt ny i ASP.

Dessverre, jeg kan nok ikke "umiddelbart" se hva som er feil i koden.
Jeg tror problemet er at du har sendt med alt for mye kode Glad

Får du en
feilmelding? Vis oss den.

terje

Kristian Asmussen (02-12-2004)

Kommentar
Fra : Kristian Asmussen

Dato : 02-12-04 08:12

"terje" <late@night.zz> skrev i en meddelelse
news:31652qF353i6jU1@individual.net...
> Kristian Asmussen wrote:
>
> </1110 kode linjer i min editor>
>
> > Har lagt koden nedenunder, nogen der umidelbart kan se nogle fejl, skal
også
> > lige siges at jeg er helt ny i ASP.
>
> Dessverre, jeg kan nok ikke "umiddelbart" se hva som er feil i koden.
> Jeg tror problemet er at du har sendt med alt for mye kode Glad

Får du en
> feilmelding? Vis oss den.

Jo der kom vidst for meget kode med.:-/

Den kommer med denne fejl:

Der opstod en intern HTTP 500-serverfejl.
Håber det hjælper?
--
Venlig Hilsen / Best Regards
Kristian Asmussen

Kristian Asmussen (02-12-2004)

Kommentar
Fra : Kristian Asmussen

Dato : 02-12-04 08:41

"Kristian Asmussen" <kristianasmussen@mail.dk> skrev i en meddelelse
news:41aec06d$0$164$edfadb0f@dtext02.news.tele.dk...
>
> "terje" <late@night.zz> skrev i en meddelelse
> news:31652qF353i6jU1@individual.net...
> > Kristian Asmussen wrote:
> >
> > </1110 kode linjer i min editor>
> >
> > > Har lagt koden nedenunder, nogen der umidelbart kan se nogle fejl,
skal
> også
> > > lige siges at jeg er helt ny i ASP.
> >
> > Dessverre, jeg kan nok ikke "umiddelbart" se hva som er feil i koden.
> > Jeg tror problemet er at du har sendt med alt for mye kode Glad

Får du en
> > feilmelding? Vis oss den.
>
> Jo der kom vidst for meget kode med.:-/
>
> Den kommer med denne fejl:
>
> Der opstod en intern HTTP 500-serverfejl.
> Håber det hjælper?

Fik lige skiftet browser så jeg kan se en lidt
bedre fejlmelding:

Microsoft VBScript compilation error '800a0400'
Expected statement

/test_interface/Resultater/editor/list.asp, line 113

end if
^--Venlig Hilsen / Best RegardsKristian Asmussen

JH (02-12-2004)

Kommentar
Fra : JH

Dato : 02-12-04 14:50

Kristian Asmussen wrote:
> Fik lige skiftet browser så jeg kan se en lidt
> bedre fejlmelding:
>
> Microsoft VBScript compilation error '800a0400'
> Expected statement
>
> /test_interface/Resultater/editor/list.asp, line 113
>
> end if
> ^--Venlig Hilsen / Best RegardsKristian Asmussen

Er det mon "end if" i dette område:


</td>

<hr>

<%
end if
if mode = "soeg" then
strSearch = Request.Form("search")

Jeg kan ikke finde nogen tilhørende "if blahblah then" som hører til
denne "end if"?

--
Mvh
Jeppe

We have unmistakable proof that throughout all past time, there has been
a ceaseless devouring of the weak by the strong.

Ukendt (02-12-2004)

Kommentar
Fra : Ukendt

Dato : 02-12-04 20:37

"JH" <spam@spam.com> skrev i en meddelelse
news:41af1d6e$0$283$edfadb0f@dread12.news.tele.dk...
> Er det mon "end if" i dette område:
>
> 
> </td>
>
> <hr>
>
> <%
> end if
> if mode = "soeg" then
> strSearch = Request.Form("search")
>
> Jeg kan ikke finde nogen tilhørende "if blahblah then" som hører til denne
> "end if"?

Tror bare jeg har fået det indtryk at der altid skal være en "end if" inden
man laver en "if"-sætning.

Kan godt være, kigger jeg på i morgen, men mener den kom med en ny fejl,
kan ikke lige huske den, men poster den lige i morgen.
--
Venlig Hilsen / Best Regards
Kristian Asmussen

Kristian Asmussen (03-12-2004)

Kommentar
Fra : Kristian Asmussen

Dato : 03-12-04 08:11

"JH" <spam@spam.com> skrev i en meddelelse
news:41af1d6e$0$283$edfadb0f@dread12.news.tele.dk...
> Er det mon "end if" i dette område:
>
> 
> </td>
>
> <hr>
>
> <%
> end if
> if mode = "soeg" then
> strSearch = Request.Form("search")
>
> Jeg kan ikke finde nogen tilhørende "if blahblah then" som hører til
> denne "end if"?

Nu har jeg prøvet at fjerne dette, nu får jeg denne fejl:

Microsoft VBScript compilation error '800a03f6'
Expected 'End'

C:\WEBS\TALKACTIVE\WEB4020\TEST.KANSELV.DK\TEST_INTERFACE\RESULTATER\EDITOR\
.../../../_fpclass/fpdbrgn2.inc, line 62

--

Venlig Hilsen / Best Regards

Kristian Asmussen

JH (03-12-2004)

Kommentar
Fra : JH

Dato : 03-12-04 11:22

Kristian Asmussen wrote:
> nu får jeg denne fejl:
>
> Microsoft VBScript compilation error '800a03f6'
> Expected 'End'
>
> C:\WEBS\TALKACTIVE\WEB4020\TEST.KANSELV.DK\TEST_INTERFACE\RESULTATER\EDITOR\
> ../../../_fpclass/fpdbrgn2.inc, line 62

Så skal vi se hvad der er af kode i den include fil.

--
Mvh
Jeppe

We have unmistakable proof that throughout all past time, there has been
a ceaseless devouring of the weak by the strong.

Kristian Asmussen (03-12-2004)

Kommentar
Fra : Kristian Asmussen

Dato : 03-12-04 11:30

"JH" <spam@spam.com> skrev i en meddelelse
news:41b03e62$0$204$edfadb0f@dread12.news.tele.dk...
>
> Så skal vi se hvad der er af kode i den include fil.

Den er her, men synes det er mærkeligt at det hele virkede
inden jeg tilføjede søgefunktionen:

<%
' Close the loop iterating records
fp_iCount = fp_iCount + 1
fp_rs.MoveNext
Loop

if fp_fShowNavbar then
if fp_fTableFormat then
if fp_iDisplayCols < 1 then fp_iDisplayCols = 16
Response.Write "<TR><TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=" &
CStr(fp_iDisplayCols) & ">"
end if

Response.Write "<FORM NAME=""" & fp_sFormName & """ ACTION=""" &
Replace(fp_sPagePath," ","%20") & """ TARGET=""_self"" METHOD=POST>"

if fp_iAbsPage > 1 then
fp_sType = "Submit"
fp_sLabel = fp_sFirstLabel
else
fp_sType = "Button"
fp_sLabel = fp_sDashLabel
end if
Response.Write "<INPUT TYPE=" & fp_sType & " NAME=""" &
fp_sFormKey & """ VALUE=""" & fp_sLabel & """>"
if fp_iAbsPage > 1 then fp_sLabel = fp_sPrevLabel
Response.Write "<INPUT TYPE=" & fp_sType & " NAME=""" & fp_sFormKey &
""" VALUE=""" & fp_sLabel & """>"
if fp_iAbsPage < fp_rs.PageCount then
fp_sType = "Submit"
fp_sLabel = fp_sNextLabel
else
fp_sType = "Button"
fp_sLabel = fp_sDashLabel
end if
Response.Write "<INPUT TYPE=" & fp_sType & " NAME=""" & fp_sFormKey &
""" VALUE=""" & fp_sLabel & """>"
if fp_iAbsPage < fp_rs.PageCount then fp_sLabel = fp_sLastLabel
Response.Write "<INPUT TYPE=" & fp_sType & " NAME=""" & fp_sFormKey &
""" VALUE=""" & fp_sLabel & """>"

Response.Write " [" & fp_iAbsPage & "/" & fp_rs.PageCount & "]"

' remember names and values used in query
for each fp_sKey in fp_dictInputs
fp_sVal = fp_dictInputs.Item(fp_sKey)
Response.Write "<INPUT TYPE=HIDDEN NAME=""" & fp_sKey & """
VALUE=""" & fp_sVal & """>"
next

Response.Write "</FORM>"

if fp_fTableFormat then
Response.Write "</TD></TR>"
end if
end if

if IsObject(fp_rs) then
FP_Close(fp_rs)
FP_Close(fp_conn)
end if

set fp_dictInputs = Nothing

set fp_rs = Nothing
set fp_cmd = Nothing
set fp_conn = Nothing

FP_RestoreLocaleForPage

%>
--
Venlig Hilsen / Best Regards
Kristian Asmussen

JH (03-12-2004)

Kommentar
Fra : JH

Dato : 03-12-04 12:01

Kristian Asmussen wrote:
> <%
> ' Close the loop iterating records
> fp_iCount = fp_iCount + 1
> fp_rs.MoveNext
> Loop

Hvor er det statement, der hører til "Loop"?

--
Mvh
Jeppe

We have unmistakable proof that throughout all past time, there has been
a ceaseless devouring of the weak by the strong.

Kristian Asmussen (03-12-2004)

Kommentar
Fra : Kristian Asmussen

Dato : 03-12-04 12:11

"JH" <spam@spam.com> skrev i en meddelelse
news:41b0475b$0$254$edfadb0f@dread12.news.tele.dk...
> > <%
> > ' Close the loop iterating records
> > fp_iCount = fp_iCount + 1
> > fp_rs.MoveNext
> > Loop
>
> Hvor er det statement, der hører til "Loop"?

No clue, det er den kode FrontPage har genereret.:-/

Men det kan da godt være jeg skal lave den side, jeg skal
implementere en søgefunktion i, om.

Er ved at blive mere og mere sur på ham torsken der har lavet
det i FrontPage, er jo ikke til at finde hoved eller hale i.
--
Venlig Hilsen / Best Regards
Kristian Asmussen

Søg

Reklame

Statistik

Spørgsmål :	177552
Tips :	31968
Nyheder :	719565
Indlæg :	6408847
Brugere :	218887

Månedens bedste

Årets bedste

Sidste års bedste