Notifikationer

Markér alle som læst Log ud

henrik4223 Nybegynder

14. marts 2004 - 15:37 Der er 22 kommentarer

Frontpage - Acces ASP virker ikke

Jeg har lavet et script, der via et søgeord skal trække bestemte informationer ud af en acces database. Jeg har lavet det i Frontpage, men det viker ikke. Hvad går galt?

Siden ligger på: http://a.domaindlx.com/Hejsa/index.htm og den understøtter ASP.

Jeg har haft det til at virke hvor jeg selv programmerede det, men vil gerne have det til at være lidt nemmere for andre at sætte op, så jeg vil gerne bruge frontpage. Frontpage laver også en global.asa fil som jeg ikke rigtigt fatter hvad er.

Men skal index.htm sende søgeordet videre til search.asp eller global.asa . Intet af det virker indtilvedere...hvad gør jeg galt?

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:38 #1

Global.asa ser sådan ud:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ingrediens</title>
</head>

<body>


<% 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 ingrediens, dansk, tysk, navn, beskrivelse FROM make_data WHERE ingrediens LIKE '%"""" + strKeyword + """"%' OR dansk LIKE '%"""" + strKeyword + """"%' OR tysk LIKE '%"""" + strKeyword + """"%' ORDER BY ingrediens ASC"
fp_sDefault=""
fp_sNoRecords="Der er ikke blevet returneret nogen poster."
fp_sDataConn="Database1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&ingrediens=202&dansk=202&tysk=202&navn=202&beskrivelse=203&"
fp_iDisplayCols=5
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>


ingrediens: <%=FP_FieldVal(fp_rs,"ingrediens")%>
dansk: <%=FP_FieldVal(fp_rs,"dansk")%>
tysk: <%=FP_FieldVal(fp_rs,"tysk")%>
navn: <%=FP_FieldVal(fp_rs,"navn")%>
beskrivelse: <%=FP_FieldVal(fp_rs,"beskrivelse")%>
<hr>

</body></html>

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:39 #2

Search.asp ser sådan ud:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==FrontPage Generated - startspan==
Dim FrontPage_UrlVars(1)
'--Project Data Connection
Application("Database1_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/INCI.mdb"
FrontPage_UrlVars(0) = "Database1_ConnectionString"
Application("Database1_ConnectionTimeout") = 15
Application("Database1_CommandTimeout") = 30
Application("Database1_CursorLocation") = 3
Application("Database1_RuntimeUserName") = ""
Application("Database1_RuntimePassword") = ""
'--
Application("FrontPage_UrlVars") = FrontPage_UrlVars
'==FrontPage Generated - endspan==
End Sub
Sub Session_OnStart
FrontPage_StartSession '==FrontPage Generated==
FrontPage_ConvertFromODBC '==FrontPage Generated==
End Sub
Sub FrontPage_StartSession
On Error Resume Next
if Len(Application("FrontPage_VRoot")) > 0 then Exit Sub

sFile = "global.asa"
sRootPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
if Left(sRootPath,1) = "/" then sSep = "/" else sSep = "\"
if Right(sRootPath,1) <> sSep then sRootPath = sRootPath & sSep
sRootPath = sRootPath & sFile

' discover the VRoot for the current page;
' walk back up VPath until we match VRoot
Vroot = Request.ServerVariables("PATH_INFO")
iCount = 0
do while Len(Vroot) > 1
idx = InStrRev(Vroot, "/")
if idx > 0 then
Vroot = Left(Vroot,idx)
else
' error; assume root web
Vroot = "/"
end if
if Server.MapPath(Vroot & sFile) = sRootPath then exit do
if Right(Vroot,1) = "/" then Vroot = Left(Vroot,Len(Vroot)-1)
iCount = iCount + 1
if iCount > 100 then
' error; assume root web
Vroot = "/"
exit do
end if
loop
' map all URL= attributes in _ConnectionString variables
Application.Lock
if Len(Application("FrontPage_VRoot")) = 0 then
Application("FrontPage_VRoot") = Vroot
UrlVarArray = Application("FrontPage_UrlVars")
for i = 0 to UBound(UrlVarArray)
if Len(UrlVarArray(i)) > 0 then FrontPage_MapUrl(UrlVarArray(i))
next
end if
Application.Unlock
End Sub
Sub FrontPage_MapUrl(AppVarName)
' convert URL attribute in conn string to absolute file location
strVal = Application(AppVarName)
strKey = "URL="
idxStart = InStr(strVal, strKey)
If idxStart = 0 Then Exit Sub
strBefore = Left(strVal, idxStart - 1)
idxStart = idxStart + Len(strKey)
idxEnd = InStr(idxStart, strVal, ";")
If idxEnd = 0 Then
strAfter = ""
strURL = Mid(strVal, idxStart)
Else
strAfter = ";" & Mid(strVal, idxEnd + 1)
strURL = Mid(strVal, idxStart, idxEnd - idxStart)
End If
strOut = strBefore & Server.MapPath(Application("FrontPage_VRoot") & strURL) & strAfter
Application(AppVarName) = strOut
End Sub
Sub FrontPage_ConvertFromODBC
On Error Resume Next
if Len(Application("ASP_OS")) > 0 then exit sub
str = "_ConnectionString"
slen = Len(str)
set oKnown = Server.CreateObject("Scripting.Dictionary")
oKnown.Add "DRIVER",""
oKnown.Add "DBQ",""
oKnown.Add "SERVER",""
oKnown.Add "DATABASE",""
oKnown.Add "UID",""
oKnown.Add "PWD",""
Application.Lock
For each item in Application.Contents
if UCase(Right(item,slen)) = UCase(str) then
sName = Left(item,Len(item)-slen)
sConn = Application(item)
if InStr(LCase(sConn),"provider=") < 1 and Len(Application(sName & "_ConnectionTimeout"))>0 then
sArr = Split(sConn,";")
set oDict = Server.CreateObject("Scripting.Dictionary")
bUnknown = False
for i = 0 to UBound(sArr)
s = sArr(i)
idx = InStr(s,"=")
sKey = UCase(Trim(Left(s,idx-1)))
sVal = Trim(Mid(s,idx+1))
oDict.Add sKey, sVal
if Not oKnown.Exists(sKey) then bUnknown = True
next
if bUnknown = False and oDict.Exists("DRIVER") then
sDrv = oDict.Item("DRIVER")
sNew = ""
if InStr(sDrv,"Microsoft Access") > 0 and oDict.Exists("DBQ") and not (oDict.Exists("UID") or oDict.Exists("PWD")) then
sNew = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & oDict.Item("DBQ")
elseif InStr(sDrv,"SQL Server") > 0 and oDict.Exists("SERVER") and oDict.Exists("DATABASE") then
sNew = "Provider=SQLOLEDB;Data Source=" & oDict("SERVER") & ";Initial Catalog=" & oDict("DATABASE")
if oDict.Exists("UID") then sNew = sNew & ";User ID=" & oDict("UID")
if oDict.Exists("PWD") then sNew = sNew & ";Password=" & oDict("PWD")
end if
if sNew <> "" then
Application(item) = sNew
end if
end if
set oDict = Nothing
end if
end if
Next
Application.Unlock
Set oKnown = Nothing
End Sub
</SCRIPT>
<head><title>Webstedsindstillinger for Active Server Pages</title><html xmlns:mso="urn:schemas-microsoft-com:office:office" xmlns:msdt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882">

</head>

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:40 #3

Okay det var vist omvendt... Global.asp er Search.asp og omvendt...

Synes godt om

cpccorp Juniormester

14. marts 2004 - 15:41 #4

umiddelbart ser det ud til at du har byttet om på filerne

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:41 #5

Index.htm ser sådan her ud:

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>INCI</title>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; position:relative" bordercolor="#111111" width="100%" id="AutoNumber1" height="479">
<tr>
<td width="24%" height="36"> </td>
<td width="52%" height="36" colspan="4">
INCI - nomenklatur</td>
<td width="24%" height="36"> </td>
</tr>
<tr>
<td width="24%" height="19"> </td>
<td width="52%" height="19" colspan="4"> </td>
<td width="24%" height="19"> </td>
</tr>
<tr>
<td width="24%" height="51"> </td>
<td width="52%" height="51" colspan="4">
Er du i tvivl om hvad en ingrediens bruges
til i et kosmetisk produkt? Eller vil du gerne vide hvad de latinske navne
p ingredienslisten str for? Du kan nu let f disse informationer ved at indtaste det prcise navn p
ingrediensen, som den fremgr af indholdsdeklarationen p produktet. Du kan ogs sge p
danske plantenavne, hvorefter deres latinske INCI-betegnelse vil fremg af
sgningen.</td>
<td width="24%" height="51"> </td>
</tr>
<tr>
<td width="24%" height="9"></td>
<td width="52%" height="9" colspan="4"></td>
<td width="24%" height="9"></td>
</tr>
<tr>
<td width="24%" height="1"></td>
<td width="52%" height="1" colspan="4">

INCI str for 

<a href="http://pharmacos.eudra.org/F3/inci/index.htm" style="color: blue; text-decoration: underline; text-underline: single">
International
Nomenclature
of Cosmetic
Ingredients</a>.

INCI-listen er ikke en liste over anvendte eller tilladte stoffer i
kosmetiske produkter. INCI er en liste med en international og ensartet
navngivning af ingredienser i kosmetiske produkter. Der findes ca. 8.000
navne p <a href="www.spt.dk/inci/kemiskesynonymer.htm">kemiske
stoffer</a> og <a href="www.spt.dk/inci/latin.htm">
plantebestanddele</a> p INCI-listen. Antallet af stoffer afspejler dog
langt fra det reelle antal ingredienser i kosmetiske produkter. Nogle af
stofferne p INCI-listen er sledes, efter de har fet et INCI-navn, ikke
lngere tilladt at anvende i kosmetiske produkter. Disse stoffer figurerer
dog stadig p listen, da den blot er en flles navnebetegnelse for
ingredienser, der p et eller andet tidspunkt er blevet registreret, og
alts ikke en liste over tilladte stoffer i kosmetiske produkter. 
Alle kosmetiske produkter er i Danmark underlagt kravene i
<a href="http://147.29.40.90/_LINK_0/0&ACCN/B20030048905" style="color: blue; text-decoration: underline; text-underline: single">
Kosmetikbekendtgrelsen</a>, der er en gennemfrelse af EU's
Kosmetikdirektiv. En mere detaljeret beskrivelse af  INCI, samt relevante
links kan findes
<a href="http://www.spt.dk/Aktuel_information/aktuel_information.html">her</a>.</td>
<td width="24%" height="16"></td>
</tr>
<tr>
<td width="24%" height="14"></td>
<td width="52%" height="14" colspan="4"></td>
<td width="24%" height="14"></td>
</tr>
<tr>
<td width="24%" height="19"> </td>
<td width="52%" height="19" colspan="4">
Indtast INCI-navn eller dansk plantenavn:</td>
<td width="24%" height="19"> </td>
</tr>
<tr>
<td width="24%" height="36"> </td>
<td width="52%" height="36" colspan="4">
<form method="POST" action="global.asa">
<input type="text" name="Keyword" size="20"><input type="submit" value="Sg" name="Action">
</form>
<td width="24%" height="36"> </td>
</tr>
<tr>
<td width="24%" height="19"> </td>
<td width="52%" height="19" colspan="4">
Listen der
sges p er ikke udtmmende, idet ingredienser lbende kommer p listen.
Listen opdateres en gang hvert 1 - 2 r. Hvis der skulle vre enkelte
ingredienser der ikke er at finde i sgningen, bedes man kontakte
<a href="http://www.colipa.org">COLIPA</a>, der er den europiske
brancheorganisation for kosmetiske produkter, og som str for navngivningen
i forhold til INCI-nomenklaturen.</td>
<td width="24%" height="19"> </td>
</tr>
<tr>
<td width="24%" height="19"> </td>
<td width="8%" height="19" align="center">

<img border="0" src="www.spt.dk/inci/latinskeplantenavne.jpg" align="right" width="60" height="60"></td>
<td width="15%" height="19" align="center">

<a href="http://a.domaindlx.com/Hejsa/latin.htm">Latinske plantenavne</a></td>
<td width="12%" height="19" align="center">
<img border="0" src="www.spt.dk/inci/kemi.bmp" align="left" width="100" height="60"></td>
<td width="17%" height="19" align="center">
 
<a href="http://a.domaindlx.com/Hejsa/kemiskesynonymer.htm">Kemiske
synonymer</a> </td>
<td width="24%" height="19"> </td>
</tr>
<tr>
<td width="24%" height="19"> </td>
<td width="23%" height="19" colspan="2">
 </td>
<td width="29%" height="19" colspan="2"> </td>
<td width="24%" height="19"> </td>
</tr>
</table>

</body>

</html>

Synes godt om

cpccorp Juniormester

14. marts 2004 - 15:44 #6

Er det noget du selv hr lavet eller er det taget??

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:45 #7

index.htm har jeg selv lavet. Resten har frontpage lavet...hvorfor?

Synes godt om

cpccorp Juniormester

14. marts 2004 - 15:45 #8

Index-siden er ikke magen til den der i linket i toppen

Synes godt om

cpccorp Juniormester

14. marts 2004 - 15:48 #9

desuden bør der nok renses en del ud i filerne

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:48 #10

øhm...nu er den uploadet igen, så den skulle gerne ligne nu...

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:50 #11

i index.htm siden går den nu til search.asp istedet for global.asa som det fremgår ovenfor...

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:52 #12

Forstår bare ikke lige hvorfor det ikke virker, når det nu er frontpage der har lavet scriptet....jeg har kun lavet index siden. Og så har jeg lavet SQL komandoen, der ikke skulle være noget galt med...

Synes godt om

cpccorp Juniormester

14. marts 2004 - 15:52 #13

jamen det blev endnu værre...vi bør ændre i fomularen global.asa til search.asp i action
Hvordan skal søgesiden se ud hvis altså den var rigtig??

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:56 #14

ingrediens: <<ingrediens>>
dansk: <<dansk>>
tysk: <<tysk>>
navn: <<navn>>
beskrivelse: <<beskrivelse>>

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 15:59 #15

Dog har frontpage sat nogle ekstra """ ind i SQL kommandoen...men det virker heller ikke hvis jeg fjerner de ekstra """

Synes godt om

cpccorp Juniormester

14. marts 2004 - 16:06 #16

Den er sat op til en sqlserver, men det har du vel ikke??

Felterne i i tabellen i databasen hedder??

Databasens navn er INCI.mdb??
Tabellens navn er make_data ??

felterne der skal søges i hedder:

ingrediens, dansk, tysk, navn, beskrivelse??

Og skal der søges efter det samme i hvert felt???

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 16:08 #17

SQL kommandoen er sat til at aøge i Acces databasen, og databasens anvn er INI.mdb og tabellens navn er make_data og der skal søges efter det samme i alle felterne.

Jeg har brugt samem SWL kommando i et script jeg selv har lavet, og det funker fint...

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 16:08 #18

Det fungerer også fint i ACCES når man laver forespørgslen

Synes godt om

cpccorp Juniormester

14. marts 2004 - 16:25 #19

Indsæt følgende i search

<%

Dim Apples

Set Apples = Server.CreateObject("ADODB.Connection")

ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
ConnStr = ConnStr & "DBQ=" & Server.MapPath("inci.mdb")
Apples.Open(ConnStr)

sql = "SELECT * FROM make_data WHERE ingrediens LIKE '%" & request.form("Keyword") & "%' OR dansk LIKE '%" & request.form("Keyword") & "%' OR tysk LIKE '%" & request.form("Keyword") & "%' OR navn LIKE '%" & request.form("Keyword") & "%' OR beskrivelse LIKE '%" & request.form("Keyword") & "%' ORDER BY ingrediens"
set rs = Apples.execute(sql)
while not rs.eof

Response.Write("Ingrediens : " & rs("ingrediens") & "" & vbcrlf)
Response.Write("Dansk : " & rs("dansk") & "" & vbcrlf)
Response.Write("Tysk : " & rs("tysk") & "" & vbcrlf)
Response.Write("Navn : " & rs("navn") & "" & vbcrlf)
Response.Write("Beskrivelse : " & rs("beskrivelse") & "" & vbcrlf)
rs.MoveNext
Response.Write("<hr>" & vbcrlf)
Wend
rs.Close

Apples.Close
set Apples = Nothing
%>

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 16:38 #20

Jeg ved godt at det nok virker, men ideen med at anvende Frontpage var, at andre personer skulle kunne ændre i opsætningen uden særligt kendskab til asp... det må da være muligt at få det til at funke med frontpage?

Synes godt om

cpccorp Juniormester

14. marts 2004 - 16:40 #21

ja og nej, den arbejder sommetider sælsomt, og diktatorisk

Synes godt om

henrik4223 Nybegynder

14. marts 2004 - 16:43 #22

jeg forstår det bare ikke, for det er jo en simpel opgave som frontpage burde kunne løse....

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

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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