Marcus: IF-Abfrage, Platzhalter, Zeichenkette

Moin !

ich hab da mal wieder ein kleines Problem.

Hier kommt erstmal der Quellcode:

Hier kommt der QuellcodE:
-----------------------------------------------
<%Response.Buffer = TRUE%>
<%Response.Expires = 0%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">

<style type="text/css"><!--
{ font-size:10pt; font-family:arial;  }
//-->
</style>
</head>

<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
        conn.open "tsmail","",""
        Set Session("tsmail_conn") = conn
SQL = "Select * From posteingang ORDER BY ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
IF rs.BOF AND rs.EOF Then
        Response.Redirect "mail_suchergebnis_error.htm"

Else
%>

<p align="center"><img src="tlogo.gif"><font face="Tahoma" size="8"><big> -
Suchergebnis:</big></font></p>
<div align="center"><center>

<table width="570" border="1" cellspacing="0">
  <tr>
    <td BGCOLOR="LIGHTBLUE" width="10" align="center">ID:</td>
    <td BGCOLOR="LIGHTBLUE" width="450" align="center">Betreff:</td>
    <td BGCOLOR="LIGHTBLUE" width="50" align="center">Datum:</td>
    <td BGCOLOR="LIGHTBLUE" width="50" align="center">Uhrzeit:</td>
    <td BGCOLOR="LIGHTBLUE" width="10" align="center"><big><strong>A</strong></big>nzeigen:</td>
  </tr>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
  <tr>
    <td width="10" align="center"><font face="Tahoma" size="3"><a
href="send.asp?which=<%=rs("id")%>"><% Response.Write rs.Fields("id") %></a></font></td>
    <td width="450" align="left"><font face="Tahoma" size="3"><% Response.Write
rs.Fields("subject") %></font></td>
    <td width="50" align="center"><font face="Tahoma" size="3"><% Response.Write
rs.Fields("Datum") %></font></td>
    <td width="50" align="center"><font face="Tahoma" size="3"><% Response.Write
rs.Fields("Uhrzeit") %></font></td>

!--
    <td width="10" align="center"><input type="button" value="Detail" name="Ansehen"
    onClick="window.open('movemail.asp?typ=ALC&which=<%=rs("ID")%>', '_self');"></td>Hier möchte ich jetzt ein IF Abfrage einbringen ob eine bestimmte
Zeichenkette im Subject vorhanden ist !
!-- z.b IF rs.Fields("subject") = "ALC" then%> --!
Das ALC ist aber mitten im Subject, und ich weiß nicht wie ich ein
Platzhalter oder ähnliches setzen muß --!

<%else%>
    <td width="10" align="center"><input type="button" value="Detail" name="Ansehen"
    onClick="window.open('movemail.asp?typ=MED&which=<%=rs("ID")%>', '_self');"></td>
  </tr>
<%end if%>
<%
rs.MoveNext
loop
%>
</table>
</center></div><%
End if
        rs.Close
Set rs = Nothing
        conn.Close
Set conn = Nothing

%>

<p align="center"> <input type="button" value="Zurück zur Suchmaske" name="zurueck"
onClick="window.open('mail_suchen.ASP', '_self');"> </p>
</body>
</html>
-----------------------------------------------------------------

Hier möchte ich jetzt ein IF Abfrage einbringen ob eine bestimmte
Zeichenkette im Subject vorhanden ist !
!-- z.b IF rs.Fields("subject") = "ALC" then%> --!
Das ALC ist aber mitten im Subject, und ich weiß nicht wie ich ein Platzhalter oder ähnliches setzen muß --!

Weiß jemand wie so eine Abfrage aussieht ???

thx & cu

Marcus

  1. Morgen!!

    Hier möchte ich jetzt ein IF Abfrage einbringen ob eine bestimmte
    Zeichenkette im Subject vorhanden ist !
    !-- z.b IF rs.Fields("subject") = "ALC" then%> --!
    Das ALC ist aber mitten im Subject, und ich weiß nicht wie ich ein Platzhalter oder ähnliches setzen muß --!

    Du möchtest also wissen, ob der String1 irgendwo in String2 vorkommt?

    Lösung:

    If InStr(String2,String1)>0 Then ...

    Wichtig: Im Gegensatz zu JScript fängt VBScript hier bei 1 an zu zählen. Das bedeutet, daß 0 nicht vorhanden darstellt.

    Hoffe ich konnte helfen.

    mfg
    JankoW

    1. Morgen!!

      Hier möchte ich jetzt ein IF Abfrage einbringen ob eine bestimmte
      Zeichenkette im Subject vorhanden ist !
      !-- z.b IF rs.Fields("subject") = "ALC" then%> --!
      Das ALC ist aber mitten im Subject, und ich weiß nicht wie ich ein Platzhalter oder ähnliches setzen muß --!

      Du möchtest also wissen, ob der String1 irgendwo in String2 vorkommt?

      Lösung:

      If InStr(String2,String1)>0 Then ...

      Wichtig: Im Gegensatz zu JScript fängt VBScript hier bei 1 an zu zählen. Das bedeutet, daß 0 nicht vorhanden darstellt.

      Hoffe ich konnte helfen.

      mfg
      JankoW

      Hi !

      Ich möchte wissen ob die Zeichenkette ALC im Subject
      vorhanden ist.
      Wie kann ich das realisieren mit InStr bzw. kennst du
      platzhalter?

      cu

      1. Hi !

        Ich möchte wissen ob die Zeichenkette ALC im Subject
        vorhanden ist.
        Wie kann ich das realisieren mit InStr bzw. kennst du
        platzhalter?

        cu

        Hey,

        entweder kannst Du den Filter direkt im SQL-String einbauen:
        "SELECT * FROM tblTabelle WHERE Subject LIKE '%ALC%'"

        oder in die Schleife:

        If InStr(rs.Fields("Subject"), "ALC") > 0 Then
            ...
        End if

        Tschau, Stefan