Dim h_accept
h_accept = LCase(CStr(Request.ServerVariables("HTTP_ACCEPT")))
If InStr(h_accept, "application/vnd.wap.xhtml+xml") <> 0 Then
Response.ContentType = "application/vnd.wap.xhtml+xml"
ElseIf InStr(h_accept, "application/xhtml+xml") <> 0 Then
Response.ContentType = "application/xhtml+xml"
ElseIf InStr(h_accept, "text/vnd.wap.wml") <> 0 Then
Response.ContentType = "text/vnd.wap.wml"
Else
Response.ContentType = "text/html"