Kan min hjärna koka, jag får inte till denna, någon som är snäll och hjälper mig.
<code>
Dim mcnConnect As New Odbc.OdbcConnection(strDbConnect)
mcnConnect.Open()
Dim strSql As String = sqlGetLinkToCompany(item)
Dim mcnCommand As New Odbc.OdbcCommand(strsql, mcnconnect)
Dim s As Odbc.OdbcDataReader = mcnCommand.ExecuteReader
While s.Read()
Dim a As String = s.GetString(1)
Response.Redirect("a")
s.Close()
End While
</code>
Det enda den skriver ut är "a". Jag har provat många varianter nu men inget fungerar.

Response.Redirect("a")

Säger: Redirecta till sidan "a". Vilket den också gör. Gissar att du vill att den ska redirecta till sidan som det står i variabeln a? Plocka bort citattecknen då

Jag förmodar att du vill läsa in värden från din datareader, då skall du inte använda redirect utan response.write

Ex:

<code>
While s.Read()
Response.Write s("firstname") & "</br>"
Response.Write s("lastname") & "</br>"
End While

s.Close
</code>

Därefter kan du använda en redirect om du skulle behöva det

Tackar för svaren, felet var dessa irriterande fnuttar igen. greje var från början att länken som blir liggerien datagrid med en knapp som innehåller en bild som skulle vara klickbar till en ny extern sida. Anledningen till detta var bland annat att jag ville räkna antalet klick på respektive annons i det hä fallet.

Rätt lösning:
<code>
While s.Read()
Dim a As String = s.GetString(0)
Response.Redirect(a)
s.Close()
End While
</code>
Där "s" är en datareader.

Se till att inte köra en redirect <b>INNAN</b> du gör close på din datareader - då stängs inte din connection.

Varför en While-sats det för villar bara:

Dim mcnConnect As New Odbc.OdbcConnection(strDbConnect)
                mcnConnect.Open()
                Dim strSql As String = sqlGetLinkToCompany(item)
                Dim mcnCommand As New Odbc.OdbcCommand(strsql, mcnconnect)
                Dim s As Odbc.OdbcDataReader = mcnCommand.ExecuteReader
                If s.Read() Then
                    Dim a As String = s.GetString(1)
                    s.Close()

                    Response.Redirect(a)
                End If

Tack för påminnelsen Pelle, hade missat det ser jag.