Avatar billede eyes Nybegynder
16. januar 2004 - 13:58 Der er 7 kommentarer og
1 løsning

HTTPObj.Url og recordsæt ?

Hej
Jeg er igang med at lave en lille side der tjekker op på om de links der befinder sig i databasen stadig virker.
Jeg har kigget lidt rundt og fundet noget der virker hvis der står en normal url adresse i HTTPObj.Url = "Http://www.noget.dk"
mit problem er at det ikke virker med mit recordsæt? nogen der ved hvorfor?

har lagt noget af koden herunder

//oje


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("links.mdb")
Conn.Open DSN
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
strSQL = "Select * from links"
%>
<table width="261" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img src="Grafik/topbar.gif" width="261" height="43"></td>
  </tr>
</table>
<table width="261" border="0" cellspacing="0" cellpadding="3" class="streg">
<%
Set rs = Conn.Execute(strSQL)
Do
HTTPObj.Url = "Response.Write rs("links")"
HTTPObj.GetURL
%>
Avatar billede powerade Nybegynder
16. januar 2004 - 14:00 #1
Hvad vil du med denne linie?
HTTPObj.Url = "Response.Write rs("links")"
Hvis du bare vil ha indholdet af rs("links") over i HTTPObj.Url skal du skrive
HTTPObj.Url = rs("links")
Avatar billede eyes Nybegynder
16. januar 2004 - 14:10 #2
virker næsten efter hensigten bortset fra enkelte ting jeg tjekker op på.
Avatar billede powerade Nybegynder
16. januar 2004 - 14:23 #3
Dvs du har fået løst dit problem eller??
Avatar billede medions Nybegynder
16. januar 2004 - 14:26 #4
Tror vidst du skal skrive det sådan her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("links.mdb")
Conn.Open DSN
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
strSQL = "Select * from links"
%>
<table width="261" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img src="Grafik/topbar.gif" width="261" height="43"></td>
  </tr>
</table>
<table width="261" border="0" cellspacing="0" cellpadding="3" class="streg">
<%
Set rs = Conn.Execute(strSQL)
Do
HTTPObj.Url = rs("links")
HTTPObj.GetURL
%>

//>Rune
Avatar billede powerade Nybegynder
16. januar 2004 - 14:33 #5
-> Medions : Og forskellen på dit og mit svar er?
Avatar billede medions Nybegynder
16. januar 2004 - 14:36 #6
Sorry, læste åbenbart ik' dit svar ordentlig igennem...

//>Rune
Avatar billede eyes Nybegynder
16. januar 2004 - 14:49 #7
jaa, jeg har fundet ud af at denne metode ikke virker ordenligt, men alligevel point til dig powerade!
Avatar billede powerade Nybegynder
16. januar 2004 - 14:52 #8
Tak for point... ;o)
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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