php - Omskrive fra asp til php - Udvikleren.dk - Programmering, webdesign og grafik

Tags: php asp

<< < 1 2 3 > >>

Bruger #17644 @ 25.06.13 22:08

Er der mon en som kan hjælpe mig med at få omskrevet denne kode til php?

PHP kode

 <%
 'Variable hentes fra URL
 sHestId = session("D_Id")
 
 'Connect til database
 Set Conn2  = Server.CreateObject("ADODB.Connection")
 DBPath = "DBQ=" & server.mappath("../db/admin/Database.mdb")
 Conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
 
 
 'Recordsæt dannes
 set rs = Conn2.Execute ("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = "&sHestId)
 
 if not (rs.BOF or rs.EOF) then
   'Hvis hestens id findes i databasen så kender vi nu hestens Id, navn og den forældres Id
   vHestId = rs("hId")
   vHestNavn = rs("Navn")
   vFarId = rs("Far")
   vMorId = rs("Mor")
   rs.close
   set rs = nothing
 else
   'Hvis hestens id IKKE findes i databasen så kender vi ingenting
   vHestId = 0
   vHestNavn = "-"
   vFarId = 0
   vMorId = 0
   ' Nu kender du hestens Id, navn og den forældres Id
 end if
 
 'Nu henter vi Far og id på Fars foældre
 if vFarId > 0 then
 set rs = Conn2.Execute ("SELECT hId, Navn, Farve, Far, Mor FROM Databasen WHERE hId = "&vFarId)
 if not (rs.bof or rs.eof) then
 vFarNavn = rs("Navn")
 vFarfarve = rs("Farve")
 vFarFarId = rs("Far")
 vFarMorId = rs("Mor")
 rs.close
 set rs = nothing
 else
 vFarNavn = "-"
 vFarFarId = 0
 vFarMorId = 0
 end if
 else
 vFarNavn = "-"
 vFarFarId = 0
 vFarMorId = 0
 end if
 
 
 'Nu henter vi Mor og id på Mors foældre
 if vMorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, Far, Mor FROM Databasen WHERE hId = "&vMorId)
   vMorNavn = rs("Navn")
   vMorFarId = rs("Far")
   vMorMorId = rs("Mor")
   rs.close
   set rs = nothing
 else
   vMorNavn = "-"
   vMorFarId = 0
   vMorMorId = 0
 end if
 
 'Så kommer turen til Farfar
 if vFarFarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarFarId)
   vFarFarNavn = rs("Navn")
 vFarFarFarID = rs("Far")
 vFarFarmorID = rs("Mor")
   rs.close
   set rs = nothing
 else
   vFarFarNavn = "-"
 end if
 
 
 'Så kommer turen til FarMor
 if vFarMorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarMorId)
   vFarMorNavn = rs("Navn")
  vFarMorfarID = rs("Far")
 vFarMormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarMorNavn = "-"
 end if
 
 
 'Så kommer turen til MorFar
 if vMorFarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vMorFarId)
   vMorFarNavn = rs("Navn")
 vMorFarfarID = rs("Far")
 vMorFarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vMorFarNavn = "-"
 end if
 
 
 'Så kommer turen til MorMor
 if vMorMorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vMorMorId)
   vMorMorNavn = rs("Navn")
 vMormorfarID = rs("Far")
 vMormormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vMorMorNavn = "-"
 end if
 
 
 
 'Så kommer turen til FarFarFar
 if vFarFarFarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarFarFarId)
   vFarFarFarNavn = rs("Navn")
 vFarfarfarfarID = rs("Far")
 vFarfarfarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarFarFarNavn = "-"
 end if
 
 'Så kommer turen til FarFarmor
 if vFarFarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarFarmorId)
   vFarFarmorNavn = rs("Navn")
 vFarfarmorfarID = rs("Far")
 vFarfarmormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarFarmorNavn = "-"
 end if
 
 'Så kommer turen til Farmorfar
 if vFarmorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarmorfarId)
   vFarmorfarNavn = rs("Navn")
 vFarmorfarfarID = rs("Far")
 vFarmorfarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarMorfarNavn = "-"
 end if
 
 'Så kommer turen til Farmormor
 if vFarmormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vFarmormorId)
   vFarmormorNavn = rs("Navn")
 vFarmormorfarID = rs("Far")
 vFarmormormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vFarMormorNavn = "-"
 end if
 
 'Så kommer turen til morFarfar
 if vMorFarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vMorFarFarId)
   vmorFarfarNavn = rs("Navn")
 vmorfarfarfarID = rs("Far")
 vmorfarfarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vmorfarfarNavn = "-"
 end if
 
 'Så kommer turen til morFarmor
 if vMorFarmorId > 0 then
   set rs = Conn.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorFarmorId)
   vmorFarMorNavn = rs("Navn")
 vmorfarmorfarID = rs("Far")
 vmorfarmormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vmorFarmorNavn = "-"
 end if
 
 'Så kommer turen til mormorfar
 if vmormorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormorfarId)
   vmormorfarNavn = rs("Navn")
 vmormorfarfarID = rs("Far")
 vmormorfarmorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vmormorfarNavn = "-"
 end if
 
 'Så kommer turen til mormormor
 if vmormormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormormorId)
   vmormormorNavn = rs("Navn")
 vmormormorfarID = rs("Far")
 vmormormormorID = rs("mor")
   rs.close
   set rs = nothing
 else
   vmormormorNavn = "-"
 end if
 
 'Så kommer turen til farfarfarfar
 if vfarfarfarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarfarfarfarId)
   vfarfarfarfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarfarfarfarNavn = "-"
 end if
 
 'Så kommer turen til farfarfarmor
 if vfarfarfarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarfarfarmorId)
   vfarfarfarmorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarfarfarmorNavn = "-"
 end if
 
 'Så kommer turen til farfarmorfar
 if vfarfarmorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarfarmorfarId)
   vfarfarmorfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarfarmorfarNavn = "-"
 end if
 
 'Så kommer turen til farfarmormor
 if vfarfarmormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarfarmormorId)
   vfarfarmormorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarfarmormorNavn = "-"
 end if
 
 'Så kommer turen til farmorfarfar
 if vfarmorfarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarmorfarfarId)
   vfarmorfarfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarmorfarfarNavn = "-"
 end if
 
 'Så kommer turen til farmorfarmor
 if vfarmorfarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarmorfarmorId)
   vfarmorfarmorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarmorfarmorNavn = "-"
 end if
 
 'Så kommer turen til farmormorfar
 if vfarmormorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarmormorfarId)
   vfarmormorfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarmormorfarNavn = "-"
 end if
 
 'Så kommer turen til farmormormor
 if vfarmormormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vfarmormormorId)
   vfarmormormorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vfarmormormorNavn = "-"
 end if
 
 
 
 'Så kommer turen til morfarfarfar
 if vmorfarfarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorfarfarfarId)
   vmorfarfarfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmorfarfarfarNavn = "-"
 end if
 
 'Så kommer turen til morfarfarmor
 if vmorfarfarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorfarfarmorId)
   vmorfarfarmorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmorfarfarmorNavn = "-"
 end if
 
 'Så kommer turen til morfarmorfar
 if vmorfarmorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorfarmorfarId)
   vmorfarmorfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmorfarmorfarNavn = "-"
 end if
 
 'Så kommer turen til morfarmormor
 if vmorfarmormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmorfarmormorId)
   vmorfarmormorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmorfarmormorNavn = "-"
 end if
 
 'Så kommer turen til mormorfarfar
 if vmormorfarfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormorfarfarId)
   vmormorfarfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmormorfarfarNavn = "-"
 end if
 
 'Så kommer turen til mormorfarmor
 if vmormorfarmorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormorfarmorId)
   vmormorfarmorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmormorfarmorNavn = "-"
 end if
 
 'Så kommer turen til mormormorfar
 if vmormormorfarId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormormorfarId)
   vmormormorfarNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmormormorfarNavn = "-"
 end if
 
 'Så kommer turen til mormormormor
 if vmormormormorId > 0 then
   set rs = Conn2.Execute ("SELECT hId, Navn, far, mor FROM Databasen WHERE hId = "&vmormormormorId)
   vmormormormorNavn = rs("Navn")
   rs.close
   set rs = nothing
 else
   vmormormormorNavn = "-"
 end if
 
 %>
 
 <TABLE WIDTH="100%" BACKGROUND="..\Grafik/Background.JPG" BORDER="1" CELLSPACING="1">
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" BACKGROUND="..\Grafik/Background.JPG" ROWSPAN="8" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='Database/Hest.asp?HID="& vFarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>" &  vFarNavn &"</A>" %> </TD>
 
     <TD ROWSPAN="4" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarFarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarFarNavn &"</A>" %> </TD>
 
     <TD ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarfarNavn &"</A>" %> </TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarfarfarNavn &"</A>" %></TD>
 </TR>
 </TR>
 
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="1" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarfarmorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
 <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarmorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarmorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarmorfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarfarmormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarfarmormorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
         <TD ALIGN="CENTER" ROWSPAN="4" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmorfarNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmorfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmorfarfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ROWSPAN="1" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmorfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmorfarmorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmormorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmormorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmormorfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vFarmormormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vFarmormormorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="8" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" ROWSPAN="4" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarfarNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarfarfarNavn &"</A>" %></TD>
 
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarfarmorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarmorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarmorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarmorfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmorfarmormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmorfarmormorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="4" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormorfarNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormorfarfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormorfarfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormorfarmorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormorfarmorNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" ROWSPAN="2" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormormorNavn &"</A>" %></TD>
 
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormormorfarID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormormorfarNavn &"</A>" %></TD>
     
 </TR>
 <TR ALIGN="CENTER">
     <TD ALIGN="CENTER" WIDTH="25%"><FONT STYLE="font size: 9pt; font-family: verdana"><% Response.Write "<A HREF='database/Hest.asp?HID="& vmormormormorID &"'"&  "STYLE='text-decoration: none' TARGET='_Blank'>"&  vmormormormorNavn &"</A>" %></TD>
     
 </TR>
 </TABLE>

27 svar postet i denne tråd vises herunder
5 indlæg har modtaget i alt 10 karma

Sorter efter stemmer Sorter efter dato

Bruger #3427 @ 27.06.13 22:50

1.520

PHP kode

 <?php
 
 2.  $HestId = $_SESSION["D_id"];
 
 3.  
 
 4.  @include('Connect.php'); // Indeholder mit database connect.
 
 5.  $query = @mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
 
 6.  
 
 7.  while ($row = @mysql_fetch_array($query)) {
 
 8.      echo $row["Navn"];
 
 9.  } // afslutter whileloopet
 
 10.  ?>

Den virker i hvert fald så min side åbner - men jeg kan så bare ikke få den til at skrive noget ud

Hvis jeg bare for test skriver:

PHP kode

 <?php
  $HestId = $_SESSION["D_id"];
 @include('Connect.php'); // Indeholder mit database connect.
 $query = @mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
 
 while ($row = @mysql_fetch_array($query)) {
 
 ?>
 
 asdf
 
 
 
 
 <?
 }; // afslutter whileloopet
 ?>

Så skriver den altså ikke hvad end jeg skriver imellem (hvor der her står asdf)

Jeg har også problemer med at omskrive denne del:

PHP kode

 if not (rs.BOF or rs.EOF) then
   'Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
   vrsId = rs("hId")
   vrsNavn = rs("Navn")
   vFarId = rs("Far")
   vMorId = rs("Mor")
   rs.close
   set rs = nothing
 else
   'Hvis rsens id IKKE findes i databasen så kender vi ingenting
   vrsId = 0
   vrsNavn = "-"
   vFarId = 0
   vMorId = 0
   ' Nu kender du rsens Id, navn og den forældres Id
 end if

prøv det her så (@ betyder den ikke viser fjel beskeder, så det er nemmere at finde fejlen hvis du undlader at tilføje dem)

PHP kode

 <?php
 //Variable hentes fra URL
 $HestId = $_SESSION["D_id"];//$_GET istedet hvis det er fra URLen... $_GET["D_id"]
   
 include('Connect.php'); // Indeholder mit database connect.
 $query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
   
 if(mysql_num_rows($query)>0)
 {
   while ($row = mysql_fetch_array($query)) {
     echo $row["Navn"];
     //Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
    $vrsId = $row["hId"];
    $vrsNavn = $row["Navn"];
    $vFarId = $row["Far"];
    $vMorId = $row["Mor"];
   } // afslutter whileloopet
 }
 else
 {
   echo "ingen poster fundet i databasen.";
   //Hvis rsens id IKKE findes i databasen så kender vi ingenting
    $vrsId = 0;
    $vrsNavn = "-";
    $vFarId = 0;
    $vMorId = 0;
    //Nu kender du rsens Id, navn og den forældres Id
 }

Bruger #17644 @ 28.06.13 11:57

Hmm.....har forsøgt med ovenstående, men den giver bare en helt blank side. Skriver ikke nogen fejl eller noget - bare en helt blank side?

Bruger #9814 @ 28.06.13 12:27

1.302

Måske et dumt spørgsmål. Men kan din server håndtere php?

Hvad giver det, hvis du laver en hello.php med dette indhold og kører den:

HTML kode

 <html>
  <head>
   <title>PHP Test</title>
  </head>
  <body>
  <?php echo '<p>Hello World</p>'; ?> 
  </body>
 </html>

Indlæg senest redigeret d. 28.06.2013 12:27 af Bruger #9814

Bruger #17644 @ 28.06.13 12:31

Ja, den kan håndtere php.
Alt det andet jeg indtil videre har lavet i php fungere fint.

Hvis jeg laver en helt tom side og ikke sætter andet ind end dette:

PHP kode

 <?php
 
  //Variable hentes fra URL
 
  $HestId = $_SESSION["hid"];//$_GET istedet hvis det er fra URLen... $_GET["D_id"]
  include('Connect.php'); // Indeholder mit database connect.
 $query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
   
  if(mysql_num_rows($query)>0)
 
  {
   while ($row = mysql_fetch_array($query)) {
 
    echo $row["Navn"];
    //Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
 
  $vrsId = $row["hId"];
 
  $vrsNavn = $row["Navn"];
 
    $vFarId = $row["Far"];
 
  $vMorId = $row["Mor"];
 
   } // afslutter whileloopet
 
 
 
 }
 
  else
 
 {
 
  echo "ingen poster fundet i databasen.";
 
  //Hvis rsens id IKKE findes i databasen så kender vi ingenting
 
   $vrsId = 0;
 
   $vrsNavn = "-";
 
    $vFarId = 0;
 
  $vMorId = 0;
 
  //Nu kender du rsens Id, navn og den forældres Id
 
 }

Så får jeg en tom side hvor den skriver:
ingen poster fundet i databasen

Og det forstår jeg jo så ikke, for jeg VED at der til det id jeg har testet med er indhold.
(Link til testside: http://www.fuldblodsaraber.dk/Database/Hest3.php?hid= 55)

Indlæg senest redigeret d. 28.06.2013 12:44 af Bruger #17644

Bruger #9814 @ 28.06.13 12:34

1.302

Ja, den kan håndtere php.
Alt det andet jeg indtil videre har lavet i php fungere fint.

Okay - beklager spørgsmålet. Det er lidt svært at vurdere hvor langt du er i processen ;-)

Prøv at sætte en Echo 'test' ind lige før while løkken. Skriver den det ud?

Indlæg senest redigeret d. 28.06.2013 12:36 af Bruger #9814

Bruger #16075 @ 28.06.13 12:50

1.223

står der det i

Kode

$query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());

som du forvendter ?? har $HestId en værdi ??
hvis ikke kunne du have glemt at starte session
http://php.net/session_start

prøv evt at hardcode en værdi ind i $HestId

Bruger #3427 @ 28.06.13 13:38

1.520

Ja, den kan håndtere php.
Alt det andet jeg indtil videre har lavet i php fungere fint.

Hvis jeg laver en helt tom side og ikke sætter andet ind end dette:

PHP kode

 <?php
 
  //Variable hentes fra URL
 
  $HestId = $_SESSION["hid"];//$_GET istedet hvis det er fra URLen... $_GET["D_id"]
  include('Connect.php'); // Indeholder mit database connect.
 $query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
   
  if(mysql_num_rows($query)>0)
 
  {
   while ($row = mysql_fetch_array($query)) {
 
    echo $row["Navn"];
    //Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
 
  $vrsId = $row["hId"];
 
  $vrsNavn = $row["Navn"];
 
    $vFarId = $row["Far"];
 
  $vMorId = $row["Mor"];
 
   } // afslutter whileloopet
 
 
 
 }
 
  else
 
 {
 
  echo "ingen poster fundet i databasen.";
 
  //Hvis rsens id IKKE findes i databasen så kender vi ingenting
 
   $vrsId = 0;
 
   $vrsNavn = "-";
 
    $vFarId = 0;
 
  $vMorId = 0;
 
  //Nu kender du rsens Id, navn og den forældres Id
 
 }

du skal bruge $_GET["hid"] og ikke $_SESSION["hid"] - skrev jeg også som kommentar i den kode jeg postet, da jeg var usikker på hvorfor du brugte session..

PHP kode

 <?php
 
  //Variable hentes fra URL ($_GET) og ikke fra session ($_SESSION)
  $HestId = $_GET["hid"];
 
  include('Connect.php'); // Indeholder mit database connect.
 $query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
   
  if(mysql_num_rows($query)>0)
  {
   while ($row = mysql_fetch_array($query)) {
    echo $row["Navn"];
    //Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
 
  $vrsId = $row["hId"];
  $vrsNavn = $row["Navn"];
  $vFarId = $row["Far"];
  $vMorId = $row["Mor"];
   } // afslutter whileloopet
 
 }
  else
 {
 
  echo "ingen poster fundet i databasen.";
 
  //Hvis rsens id IKKE findes i databasen så kender vi ingenting
   $vrsId = 0;
   $vrsNavn = "-";
    $vFarId = 0;
  $vMorId = 0;
 
  //Nu kender du rsens Id, navn og den forældres Id
 
 }

Bruger #17644 @ 28.06.13 13:42

Jeg har også brugt GET på min testside.
Men kan se at jeg har glemt det på den sidste testside (Hest3.php)

Det gør jo så en forskel!!
Så nu har jeg da lidt at arbejde videre med.
Så snart jeg putter samme kode ind på min eksisterende side - så får jeg en blank side. Så der er et eller andet der går galt når jeg sætter det sammen....

Indlæg senest redigeret d. 28.06.2013 13:49 af Bruger #17644

Bruger #17644 @ 28.06.13 14:41

Puha jeg har meget jeg skal have læst op på.
Jeg er slet ikke lige med på hvad det her API osv. er for noget.
Heldigvis har jeg ferie lige om lidt og så bliver der ekstra tid til at læse på php.

Jeg vender lige tilbage med min sammensatte kode.

Lige nu har jeg forsøgt at fortsætte på min testside med den kode som gav noget resultat.
Jeg har bygget lidt videre på den - men ak, det virker ikke. Hvorfor?

PHP kode

 <?php
 
  //Variable hentes fra URL
 
  $HestId = $_GET["hid"];//$_GET istedet hvis det er fra URLen... $_GET["D_id"]
  include('Connect.php'); // Indeholder mit database connect.
 $query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$HestId'") or die("Der er sket en fejl. Fejlnr. ".mysql_errno());
   
  if(mysql_num_rows($query)>0)
 
  {
   while ($row = mysql_fetch_array($query)) {
 
    echo $row["Navn"];
    //Hvis rsens id findes i databasen så kender vi nu rsens Id, navn og den forældres Id
  $vrsId = $row["hId"];
  $vrsNavn = $row["Navn"];
    $vFarId = $row["Far"];
  $vMorId = $row["Mor"];
   } // afslutter whileloopet
 }
  else
 {
  echo "ingen poster fundet i databasen.";
  //Hvis rsens id IKKE findes i databasen så kender vi ingenting
   $vrsId = 0;
   $vrsNavn = "-";
    $vFarId = 0;
  $vMorId = 0;
  //Nu kender du rsens Id, navn og den forældres Id
 }
 
 
 
 'Nu henter vi Mor og id på Mors foældre
 if vMorId > 0 then
   $query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$vMorId'"
   $vMorNavn = rs("Navn")
   $vMorFarId = rs("Far")
   $vMorMorId = rs("Mor")
    } // afslutter whileloopet
  }
 else
 {
   $vMorNavn = "-"
   $vMorFarId = 0
   $vMorMorId = 0
 }

Bruger #16075 @ 28.06.13 15:23

1.223

Jeg har bygget lidt videre på den - men ak, det virker ikke. Hvorfor?

får du ikke en fejl i denne linje
$vrsId = $row["hId"];
hId findes ikke, den hedder hid;

du har ikke oversat dette linje 36 og frem

Kode

 if vMorId > 0 then
$query = mysql_query("SELECT hid, Navn, Far, Mor FROM Databasen WHERE hid = '$vMorId'"
$vMorNavn = rs("Navn")
$vMorFarId = rs("Far")
$vMorMorId = rs("Mor")

jeg syntes din sql kalder på at blive lavet til en function, da det er det sammen du udtrækker hver gang, bare med et nyt id som referance

Indlæg senest redigeret d. 28.06.2013 15:23 af Bruger #16075

<< < 1 2 3 > >>

Omskrive fra asp til php

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler