Hallo Leute,
Ich habe Hostingprovider gewechselt, dabei aber leider nicht bemerkt das der neue Provider ASP.net nicht unterstützt.
Jetzt möchte ich 4 ASP-Skripts nach PHP umwandeln, gbit es dabei eine einfach Variante, dass ich nicht die PHP-Skriptsprache erlernen muss?
Hier mal ein Auszug aus einem ASP-Skript:
<p align="left"><font face="Arial" size="5">Resultat Ihrer Abfrage</font><p><font face="Arial">
<% dim suchbegriff
suchbegriff1 = Request.Form("Titel")
suchbegriff2 = Request.Form("Modulart")
suchbegriff3 = Request.Form("Modulver") %>
<br>
<font size="2">
<%
Response.Write "Resultat der Suche mittels folgendem Titel: " & suchbegriff1 & suchbegriff2 & suchbegriff3
%>
</font>
<%
Dim dbConnection
Dim strCon
Dim strPath
strCon = "Driver={Microsoft Access Driver (*.mdb)}"
strPath = ";DBQ=" & Server.MapPath ("/db") & "\db.mdb;"
Set dbConnection = Server.CreateObject("ADODB.Connection")
DSNtemp = strCon & strPath
dbConnection.open DSNtemp
qry="SELECT * FROM BIZ where Titel like '%" & suchbegriff1 & "%' ORDER BY Seite " %>
<% set rstemp = dbConnection.Execute(qry) %>
<br>
</font>
</p>
<table border="1" cellpadding="0" width="100%">
<tr>
<td width="7%"><b><font size="2" face="Arial">Seite</font></b></td>
<td width="45%"><b><font face="Arial" size="2"> Titel</font></b></td>
<td width="23%"><b><font face="Arial" size="2">Modulverant-<br>
wortliche(r)</font></b></td>
<td width="26%"><b><font face="Arial" size="2">Link</font></b></td>
</tr>
</table>
<% DO WHILE NOT RSTEMP.EOF
' jeder Datensatz besitzt die Felder 0 bis 6,
Gesamtprogramm=RSTEMP.FIELDS(0).VALUE
Seite=RSTEMP.FIELDS(1).VALUE
Titel=RSTEMP.FIELDS(2).VALUE
Titelkurz=RSTEMP.FIELDS(3).VALUE
Modulart=RSTEMP.FIELDS(4).VALUE
Modulverantwortliche=RSTEMP.FIELDS(5).VALUE
Link=RSTEMP.FIELDS(6).VALUE
%>
<table border="1" cellpadding="0" width="100%">
<tr>
<td width="7%"><font face="Arial"><font size="2"><% = Seite %></font></font><font size="2"> </font></td>
<td width="45%"><font face="Arial"><b><font size="2"><% = Titel %></font></b></font><font size="2"> </font></td>
<td width="23%"><font face="Arial"><font size="2"><% = Modulverantwortliche %></font></font><font size="2"> </font></td>
<td width="26%"><font face="Arial" size="2"><a href="http://<% = Link %>"><% = Titelkurz %></a> </font></td>
</tr>
</table>
<%
RSTEMP.MOVENEXT
LOOP
dbConnection.Close
%>
</body>
</html>
Ich habe Hostingprovider gewechselt, dabei aber leider nicht bemerkt das der neue Provider ASP.net nicht unterstützt.
Jetzt möchte ich 4 ASP-Skripts nach PHP umwandeln, gbit es dabei eine einfach Variante, dass ich nicht die PHP-Skriptsprache erlernen muss?
Hier mal ein Auszug aus einem ASP-Skript:
<p align="left"><font face="Arial" size="5">Resultat Ihrer Abfrage</font><p><font face="Arial">
<% dim suchbegriff
suchbegriff1 = Request.Form("Titel")
suchbegriff2 = Request.Form("Modulart")
suchbegriff3 = Request.Form("Modulver") %>
<br>
<font size="2">
<%
Response.Write "Resultat der Suche mittels folgendem Titel: " & suchbegriff1 & suchbegriff2 & suchbegriff3
%>
</font>
<%
Dim dbConnection
Dim strCon
Dim strPath
strCon = "Driver={Microsoft Access Driver (*.mdb)}"
strPath = ";DBQ=" & Server.MapPath ("/db") & "\db.mdb;"
Set dbConnection = Server.CreateObject("ADODB.Connection")
DSNtemp = strCon & strPath
dbConnection.open DSNtemp
qry="SELECT * FROM BIZ where Titel like '%" & suchbegriff1 & "%' ORDER BY Seite " %>
<% set rstemp = dbConnection.Execute(qry) %>
<br>
</font>
</p>
<table border="1" cellpadding="0" width="100%">
<tr>
<td width="7%"><b><font size="2" face="Arial">Seite</font></b></td>
<td width="45%"><b><font face="Arial" size="2"> Titel</font></b></td>
<td width="23%"><b><font face="Arial" size="2">Modulverant-<br>
wortliche(r)</font></b></td>
<td width="26%"><b><font face="Arial" size="2">Link</font></b></td>
</tr>
</table>
<% DO WHILE NOT RSTEMP.EOF
' jeder Datensatz besitzt die Felder 0 bis 6,
Gesamtprogramm=RSTEMP.FIELDS(0).VALUE
Seite=RSTEMP.FIELDS(1).VALUE
Titel=RSTEMP.FIELDS(2).VALUE
Titelkurz=RSTEMP.FIELDS(3).VALUE
Modulart=RSTEMP.FIELDS(4).VALUE
Modulverantwortliche=RSTEMP.FIELDS(5).VALUE
Link=RSTEMP.FIELDS(6).VALUE
%>
<table border="1" cellpadding="0" width="100%">
<tr>
<td width="7%"><font face="Arial"><font size="2"><% = Seite %></font></font><font size="2"> </font></td>
<td width="45%"><font face="Arial"><b><font size="2"><% = Titel %></font></b></font><font size="2"> </font></td>
<td width="23%"><font face="Arial"><font size="2"><% = Modulverantwortliche %></font></font><font size="2"> </font></td>
<td width="26%"><font face="Arial" size="2"><a href="http://<% = Link %>"><% = Titelkurz %></a> </font></td>
</tr>
</table>
<%
RSTEMP.MOVENEXT
LOOP
dbConnection.Close
%>
</body>
</html>