---
title: "behöver hjälpa med att överstätta script från asp till php"
type: "forum-thread"
url: "https://www.webforum.nu/amne/php/47974-behöver-hjälpa-med-att-överstätta-script-från-asp-till-php"
topic: "PHP"
topic_url: "https://www.webforum.nu/amne/php"
author: "Cactuz"
published: "2002-07-15T20:00:11.000Z"
updated: "2002-07-17T14:02:48.000Z"
replies: 1
views: 238
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/php/47974-behöver-hjälpa-med-att-överstätta-script-från-asp-till-php"
---

# behöver hjälpa med att överstätta script från asp till php

## #1 — Cactuz, 2002-07-15T20:00Z

```
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "driver=MySQL;server=***;uid=***;pwd=***;database=***"

SQL = "SELECT * FROM News Order by Datum DESC"
Set rs = db.Execute(SQL)

IF rs.EOF THEN

response.write("Inga nyheter")

ELSE

Nyhet = 0
Do until rs.eof OR Nyhet = 2 %>

<% IF NOT Nyhet = 0 THEN %><hr color="#000000" size="1"><% END IF %>

<B><%=rs("Rubrik")%></B>
<br>
<%
strText = Replace(rs("Data"),vbcrlf, "<br>" & vbcrlf)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
%>

<!--#include file="smiles.txt"-->

<%
response.write strText

IF NOT rs("Edit") = "" THEN %>
<br><br><i>---<br>Redigerad den <%=rs("Edit")%> av <%=rs("Editor")%><% IF session("***") = "***" THEN %> - <%=rs("EIP")%><% END IF %></i>
<% END IF %>

<br><br><B>Av: <%=rs("Av")%> - <%=rs("Datum")%><% IF session("***") = "***" THEN %> - <%=rs("Ip")%><% END IF %></B>
<br>

<%
Nyhet = Nyhet + 1
rs.MoveNext
Loop
END IF
%>
```

Permalänk: https://www.webforum.nu/p/47974

## #2 — Mungo, 2002-07-17T14:02Z

Icke testat, men detta borde funka. Du hade nåt regexp som inte användes och nån session som inte initerades så det tog jag bort, du får väl lägga till det igen om du har nån användning av det.

```php
<?php

$link = mysql_connect("hostname", "username", "password")
	or die ("Could not connect");
mysql_select_db ("databasnamn")
	or die ("Could not select database");

$sql = "SELECT * FROM News Order by Datum DESC";
$rs = mysql_query($sql);

IF (!mysql_num_rows($rs)) {
  echo "Inga nyheter";
  }
else {
  $nyhet = 0;
  while($rows = mysql_fetch_array($rs)) {
    if ($nyhet ==2) { break; }
    if ($nyhet) {
      echo "<hr color=\\"#000000\\" size=1>";
      }
    echo "<B>" . $rows["Rubrik"] . "</B><br>";
    echo eregi_replace("\n", "<br>", $rows["Data"]);
    include("smilies.txt");

    if (!$rows["Edit"] == "") {
      echo "<br><br><i>---<br>Redigerad den " . $rows["Edit"] . " av " . $rows["Editor"] . "</i>";
      }
    echo "<br><br><B>Av: " .  $rows["Av"] . " - " . $rows["Datum"] . "</B><br>";
    $nyhet ++;
    }
  }
?>
```

Permalänk: https://www.webforum.nu/p/722835

---

Tråden på webben: https://www.webforum.nu/amne/php/47974-behöver-hjälpa-med-att-överstätta-script-från-asp-till-php