Microsoft VBScript 运行时错误 '800a000d' 类型不匹配 /order/search/searchresults.asp，第 597 行

Question

当我插入邮政编码搜索商店时，我会遇到此错误，但是如果我重新加载了网页，则会消失。有人可以帮我解决吗？邮政编码研究

ddd=0                       
if request.querystring("searchtype") = "postcode" then                          
    If objRds("longitude") & "" <> "" AND objRds("latitude") & "" <> "" Then                            
       ' Response.Write("lat1 " & coords(0) & " lon1 " & coords(1) & " [] lat2 " & objRds("latitude") & "  lon2 " & objRds("longitude") & "<br/>")                          

        ddd = round(distance(coords(0), coords(1), objRds("latitude"), objRds("longitude"), "M"),1)

'Response.Write("ddd " & ddd & "<br/>")                         
    End If                          
else                            

Answer 1

ddd = round(distance(coords(0), coords(1), objRds("latitude"), objRds("longitude"), "M"),1)

机会是您传递到距离函数的参数之一。做一个响应。每个参数的写入，您可能会发现其中一个是空白的，或者其中一个是错误的数据类型。