IF-Abfrage, Platzhalter, Zeichenkette
Marcus
- asp.net
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
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
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
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