online link samling?

Undsyld jeg bannede :) dårlig vane :)

-Stoiss

<%

  if request.querystring = "" or request.querystring = "laes" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * From links Order by date"
Set rs = Conn.Execute(strSQL)
Do
Response.write "Link til siden: <a href='" & rs("sidelink") & "'>" & rs("sidenavn") & "</a><br>"
Response.write "Beskrivelse: " & rs("beskrivelse") & "<br><br>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing

  elseif request.querystring = "lav_indsaet" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values('" & Request.Form("sidelink") & "''" & Request.Form("sidenavn") "''" & Request.Form("beskrivelse") '")"
Conn.Execute(strSAETNING)
Conn.Close
Set Conn = Nothing
response.redirect("linksamling.asp?laes")

  elseif request.querystring = "indsaet" then

response.write "<form action='linksamling.asp?lav_indsaet' method='post'>"
response.write "<input type='text' name='sidelink'>"
response.write "<input type='text' name='sidenavn'>"
response.write "<input type='text' name='beskrivelse'>"
response.write "<input type='submit' value='Gem Link'>"
response.write "</form>

  else
  response.write("Error")
  end if

%>



Måske.. det er ikke testet

har allerde selv spottet en fejl :p prøv lige denne istedet:
<%

  if request.querystring = "" or request.querystring = "laes" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * From links Order by sidenavn"
Set rs = Conn.Execute(strSQL)
Do
Response.write "Link til siden: <a href='" & rs("sidelink") & "'>" & rs("sidenavn") & "</a><br>"
Response.write "Beskrivelse: " & rs("beskrivelse") & "<br><br>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing

  elseif request.querystring = "lav_indsaet" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values('" & Request.Form("sidelink") & "''" & Request.Form("sidenavn") "''" & Request.Form("beskrivelse") & '")"
Conn.Execute(strSAETNING)
Conn.Close
Set Conn = Nothing
response.redirect("linksamling.asp?laes")

  elseif request.querystring = "indsaet" then

response.write "<form action='linksamling.asp?lav_indsaet' method='post'>"
response.write "<input type='text' name='sidelink'>"
response.write "<input type='text' name='sidenavn'>"
response.write "<input type='text' name='beskrivelse'>"
response.write "<input type='submit' value='Gem Link'>"
response.write "</form>

  else
  response.write("Error")
  end if

%>

Og husk at lav databasen ..

database.mdb
  \-links
    >--sidelink
    >--sidenavn
    >--beskrivelse

skal de bare stå på tekst allesammen? :)

jeg får den her fejl: "http://frip.dk/bjoler/3/default.asp"

nu prøvede jeg selv et eller andet, så får jeg en ny  fejl: "
http://frip.dk/bjoler/3/default.asp"

strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values('" & Request.Form("sidelink") & "','" & Request.Form("sidenavn") & "','" & Request.Form("beskrivelse") & "','")"
skal være
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values('" & Request.Form("sidelink") & "','" & Request.Form("sidenavn") & "','" & Request.Form("beskrivelse") & "')"

kommer fra denne her
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values('" & Request.Form("sidelink") & "''" & Request.Form("sidenavn") "''" & Request.Form("beskrivelse") & '")"
som skal være
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values('" & Request.Form("sidelink") & "','" & Request.Form("sidenavn") "','" & Request.Form("beskrivelse") & '")"

hmm.. hva for en af dem skal jeg så bruge? er lidt forvirret nu?:)

i fbh´s indlæg 21/06-2005 12:21:12 indeholdt sql´en ingen kommaer i values. Dem har du rigtig nok indsat men du har indsat eet for meget til sidst
Du skal have denne her
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values('" & Request.Form("sidelink") & "','" & Request.Form("sidenavn") "','" & Request.Form("beskrivelse") & '")"

og så har jeg selvfølgelig tastet forkert...dooh
sådan her :o)
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values('" & Request.Form("sidelink") & "','" & Request.Form("sidenavn") "','" & Request.Form("beskrivelse") & "')"

hold da "kæft" en gang copy paste møg
du skal tage det sidste jeg skrev i mit første indlæg ... sorry
Men fik copy pasted forkert...sikkert lige som du har gjort hehe..gøgl
---
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values ('" & Request.Form("sidelink") & "','" & Request.Form("sidenavn") & "','" & Request.Form("beskrivelse") & "')"

Undskylder fejlene - det var noget jeg sad i min pause på arbejde og bryggede sammen, og det skal siges at jeg ikke har rodet med ASP i over et halvt år :) - derfor de enkelte mangler :p

busschou--> nu har jeg prøvet det du sagde, nu kan siden ikke vises "http://frip.dk/bjoler/3/default.asp" :)

fbh--> det går nok :D er bare taknemlig for der er nogen der gider forsøge at hjælpe mig :d

-\\Stoiss

Ikke ondt ment, men har du lært at læse fejl medelelser?
I IE skal du slå det til så du kan se fejl medelelser, mener det er i avanceret under "vis uskadelige html fejl" eller noget, for så slipper du for at få en fx 505 fejl men i stedet får du denne
----
Microsoft VBScript compilation  error '800a0409'

Unterminated string constant

/bjoler/3/default.asp, line 38

response.write "</form>
-----------------------^
----
og den er jo ret sigende den fejl
Det er fordi der mangler et gåseøje " til sidst

busschou--> Hmm... nej vidste ikke man kunne det der du sagde med at få en forklareing istedet for en skod 505 side...

jeg kan heller ikke finde det der vis uskadelige html fejl, prøver lige når jeg kommer hjem, vil ikke lave alt muligt om på skolens computer :)

anyway, den siger stadig at siden ikke kan vises, og jeg har sat den der " ind efter </form>.. fler' goe' ideer?:)

-\\Stoiss

Nu giver den dig en exception i linje 12 , men uden kende din nuværende kode præcis så jeg ved hvor linje 12 er, så er den svær at gætte på ;o)

Det med forklaringen det er oppe i menuen "funktioner" under "internetindstillinger" i fanen "avanceret" , der er et flueben i "Vis meddelelser om uskadelige HTTP-fejl"
Det er det flueben som skal fjernes
Jeg skal jo ikke bestemme hvad du gør i skolen hehe
Men det gør ingen skade! , det er udelukkende til for at hjælpe programmører med at se fejl, og for at hjælpe "normale" mennesker med ikke at se fejl ;o)

nååh... okay :D

nu er frip så self. lige ned (jo ikke særlig typisk?)

men sådan ser min kode ud:

----

<%

  if request.querystring = "" or request.querystring = "laes" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * From links Order by sidenavn"
Set rs = Conn.Execute(strSQL)
Do
Response.write "Link til siden: <a href='" & rs("sidelink") & "'>" & rs("sidenavn") & "</a><br>"
Response.write "Beskrivelse: " & rs("beskrivelse") & "<br><br>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing

  elseif request.querystring = "lav_indsaet" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSAETNING = "Insert into personer (sidelink, sidenavn, beskrivelse) values ('" & Request.Form("sidelink") & "','" & Request.Form("sidenavn") & "','" & Request.Form("beskrivelse") & "')"
Conn.Execute(strSAETNING)
Conn.Close
Set Conn = Nothing
response.redirect("linksamling.asp?laes")

  elseif request.querystring = "indsaet" then

response.write "<form action='linksamling.asp?lav_indsaet' method='post'>"
response.write "<input type='text' name='sidelink'>"
response.write "<input type='text' name='sidenavn'>"
response.write "<input type='text' name='beskrivelse'>"
response.write "<input type='submit' value='Gem Link'>"
response.write "</form>"

  else
  response.write("Error")
  end if

%>

-----
-stoiss

Jeg kan ikke umiddelbart se hvad fejlen den er i linje 12 men denne linje her undrer mig
if request.querystring = "" or request.querystring = "laes" then
For request.querystring giver dig _alt_ som står efter ? i adressen. Så generelt vil jeg mene det er en usikker måde at teste på
Men ja jeg kan ikke lige lure hvad det er som giver den fejl desværre :o(

Hmm... det er der ikke noget at gøre ved så :(

men ellers tak fordi i prøvede at hjælpe mig :)

smid et svar busswchou, så kan i dele point :;)

altså fejlen kunne tyde på problemer med databasen, at tabellen ikke indeholder et felt "sidelink" eller "sidenavn" ..
Men det er jo en ret dum fejl medelelse

jeg har kigget lidt på det selv nu hvor jeg kom hjem og fik adgang til det sidste webhotel jeg kan komme ind på med ASP understøttelse :p

http://fbh.linefan.dk/a/linksamling.asp
downloades på: http://fbh.linefan.dk/a/samling.asp

Dette virker i hvertfald. selve sourcekoden er også patstet nederst i dette indlæg.

Der kan I se hvad jeg har fået lavet - og tag jer ikke af navnet linefan.dk, har ingen relevans med mig, jeg bruger det kun når jeg lavet lidt asp.



>>busschou 24/06-2005 10:17:38<< -
Den linje siger "hvis spørgestrengen enten er tom eller ligmed laes så skal du"


--

<%

  if request.querystring = "" or request.querystring = "laes" then

response.write "Klik <a href='?indsaet'>her</a> for at smide dit link ind<br><br>"

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSQL = "Select * From links Order by sidenavn"
Set rs = Conn.Execute(strSQL)
Do
Response.write "Link til siden: <a href='" & rs("sidelink") & "'>" & rs("sidenavn") & "</a><br>"
Response.write "Beskrivelse: " & rs("beskrivelse") & "<br><br>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing

  elseif request.querystring = "lav_indsaet" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN
strSAETNING = "Insert into links (sidelink, sidenavn, beskrivelse) values ('" & Request.Form("sidelink") & "','" & Request.Form("sidenavn") & "','" & Request.Form("beskrivelse") & "')"
Conn.Execute(strSAETNING)
Conn.Close
Set Conn = Nothing
response.redirect("linksamling.asp?laes")

  elseif request.querystring = "indsaet" then

response.write "<form action='linksamling.asp?lav_indsaet' method='post'>"
response.write "link til side <input type='text' name='sidelink'><br>"
response.write "navn på side <input type='text' name='sidenavn'><br>"
response.write "beskrivelse på side<input type='text' name='beskrivelse'><br>"
response.write "<input type='submit' value='Gem Link'>"
response.write "</form>"

  else
  response.write("Error")
  end if

%>

hej igen:)

der må stadig være noget fejl :(

"http://frip.dk/bjoler/3/default.asp"

Prøv at download  http://fbh.linefan.dk/a/samling.zip
pak ud og upload hele indholdet....+

fik det ikke til at virke :( så lukker, men tak for hjælpen